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O AUTOR 


José Eduardo Maluf de Carvalho, 32 anos, arquiteto, atuando em Planejamento Ur- 
bano, na Secretaria Municipal de Planejamento de São Paulo e em projetos de edifi- 
cações e construção civil em seu escritório próprio, sentiu necessidade de agilizar 
seu trabalho particular, nas tarefas mais repetitivas do arquiteto, desde uma con- 
sulta às leis de zoneamento, que regem o uso e aproveitamento do solo no Municí- 
pio de São Paulo, até as fases finais de detalhamento, quantificação e custo de um 
projeto de arquitetura. > 


“Para isso, adquiriu, como um curioso, em março de 1982, um TK 82-C, e ime- 
diatamente conseguiu fazer deste pequeno micro uma poderosa ferramenta de tra- 
balho. 


Sentindo falta de uma melhor resolução gráfica, bem como de uma maior ca- 
pacidade de armazenamento, partiu para um micro que foi um caso de “amor a pri- 
meira vista”. Era o ZX Spectrum da Sinclair. 


Desde setembro de 1983, o domínio sobre essa máquina foi num crescente 
cada vez maior, incluindo aí os periféricos ZX Microdrive, que nada mais é que um 
micro acionador de cartuchos (em vez de discos) e a Interface One (de compatibili- 
zação com o Microdrive, saída RS 232 C e rede local). 


Trabalhando principalmente em linguagem Basic, com algumas rotinas em có- 
digo de máquina, conseguiu elaborar um pacote de programas aplicativos para arqui-. 
tetura, que vão desde a análise do zoneamento, otimizando a ocupação do terreno, 
definição do programa do projeto de arquitetura, elaboração da planta baixa, vegeta- 
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ção, detalhes construtivos, perspectivas, culminando com o orçamento e o cronogra- 
ma da obra. Ou seja, não se sai do micro sem ter o projeto de arquitetura completo. 


Hoje, após o lançamento do TK 90X, da Microdigital, totalmente compatível 
com o Spectrum, e até com algumas inovações e levando em consideração o inedi- 
tismo do seu trabalho, o autor fundou a empresa ARQUITRON INFORMÁTICA 
LTDA., de.comércio e prestação de serviços em informática; juntamente com o Clu- 
be de Usuários do TK 90, sem no entanto abandonar suas atividades no escritório 


de arquitetura. | 
Mas nem por isso abandona os deliciosos momentos de lazer que tem com 


este grande parceiro de video games. 


BEM-VINDOS AO MUNDO DO PRIMEIRO MICRO PESSOAL 
EM CORES LANÇADO NO MUNDO!!! 
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Bem, leitor, aqui estamos nós juntos, nesse mundo cheio de surpresas agradá- 
veis e, na maioria dos casos, quase que totalmente desconhecidas, deste pequeno no- 
tável, de potencial ilimitado, que é o TK 90X. 


Provavelmente você é daquele tipo de pessoa que compra um computador co- 
mo um curioso (foi assim que eu comecei), sem saber exatamente se ele é adequado 
às suas necessidades (se é que você sabe quais são elas). 


Sem dúvida alguma é isso que está acontecendo nos grandes mercados mun- 
diais, com o advento da microinformática, que introduziu na maior parte dos lares 
americanos, ingleses, italianos, franceses etc., sem saber exatamente como funcio- 
nam e para que servem, essas maravilhas que são os microcomputadores. 


Você faz agendas telefônicas na sua residência, faz cadastramentos diversos, 
faz receitas de bolos e uma infinidade de aplicações domésticas. Só que já imaginou 
uma dona-de-casa, ao fazer uma receita, e de repente, esquecer um trecho dela, ter 
que ligar toda a parafernália eletrônica, após, evidentemente ter lavado as mãos, pa- 
ra uma simples consulta? Ou, então, se você quiser procurar um telefone de um 
amigo, se O esqueceu, ter de ligar o computador, ligar a tevê, ligar O cassete, carregar 
o programa, digitar o nome de quem você quer o telefone? É cansativo, muito mais 
que abrir uma simples cadernetinha de telefones! | 


* NOTA: Todos os programas deste livro foram digitados e testados num TK 90X, de 48K de 
memória RAM, n. 738/CQF/250/11015/6. 
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O mercado externo está exatamente nessa situação, em relação aos micros do- 


mésticos. Muitas firmas fabricantes de microcomputadores estão falindo, devido à 


guerra agressiva do capitalismo, que baixa até níveis insustentáveis os preços de 
suas mercadorias. 


Nós estamos indo para o mesmo caminho. Computadores, custando os olhos 
da cara, são anunciados como “máquinas mágicas” que fazem o que nenhuma outra 
faz. Dizem que o que é bom para os EUA é bom para o Brasil. Será? 


Os computadores mais baratos são vistos como máquinas apenas de “jogos 
eletrônicos”, substituindo os videos games com grande vantagem. É o caso típico 
desta máquina, cuja potencialidade é totalmente desconhecida aqui no Brasil, 


Apenas a título de exemplo, somente na Inglaterra, existem cerca de 30 000 
escolas (!!!) que utilizam o micro ZX Spectrum da Sinclair, com a Interface One, 
que permite fazer uma rede local de computadores, interligando até 64 máquinas, e 
cada uma com até oito microdrives (faça as contas: 64 x 8 x 90K de capacidade de 
armazenamento de cada cartucho do microdrive resulta num total de cerca de 


46 000 Kbytes, ou 46Mb — é memória de massa para ninguém colocar defeito). E, 


no mundo inteiro, são mais de cinco milhões de ZX Spectrum vendidos, em apenas 
três anos de existência. 


Aqui, no Brasil, essa capacidade de se ligar em rede local é anunciada por qua- 
se todos os fabricantes com grande alarde, encarecendo o produto e servindo apenas 
a “grandes micros”. | | 


Eu, pelo que conheço deste micro, posso afirmar, categoricamente, que ele 
não é absolutamente uma máquina de jogos apenas. É muito, mas muito mais que 
isso. Ele é um dos microcomputadores de tecnologia de ponta mais desenvolvida do 
mundo inteiro, em relação ao seu microprocessador Z 80A, sendo o primeiro do 
mundo a apresentar alta resolução gráfica com cores! 


Bem, mas vamos ver o que é e o que pode fazer esta máquina. É isto que eu 
pretendo neste livro. Com uma abordagem extremamente didática, a máxima que 
eu pude atingir, você verá diversos programas demonstrativos, jogos e utilitários que 
exploram a sua capacidade total da linguagem Basic. 


E o que é a linguagem Basic? É a linguagem de alto nível mais difundida, mais 
versátil e mais fácil de ser entendila por nós, que a grande maioria de microcompu- 
tadores pessoais e domésticos utiliza por todo o mundo. Ela é relativamente nova, 
tendo sido criada em 1964, no Dartmouth College, nos EUA. 


À teoria dessa linguagem Basic é exatamente aquilo que você leu no manual. 
que acompanha o micro, faltando alguns truques e segredos aos quais se poderá ter 
acesso, no decorrer deste livro. 


Introdução XV 





Quanto ao manual, como todo e qualquer manual de computador, ele não é 
suficientemente elaborado para nos ensinar a explorar ao máximo o potencial da 
máquina. Ele nos dá uma visão ampla do que pode ser feito com o micro, mas não 
se aprofunda em detalhes. 


Eu espero que, ao comprar este livro, você já tenha explorado esse manual 
(mas que não esteja satisfeito apenas com o que leu nele), e que também tenha en- 
tendido como funciona a linguagem Basic e suas aplicações. 


Você não vai encontrar informações repetidas neste livro, a partir do manual, 
ou seja, as informações contidas lá não estão neste livro. O nível de teoria é mais 
elevado do que no manual. 


Portanto, você já deve estar com o micro ligado, deve ter-se exercitado nos 
exemplos do manual, provavelmente já fez o seu primeiro programa Basic, e está 
ansioso por saber mais. Vamos lá! 


Na minha opinião, a computação, ciência como qualquer outra, é cerca de 
30% de teoria e o restante de prática, aplicação. E, no manual, existe cerca de 90% 
dessa teoria e 10% da prática. | 


Portanto, para você realmente aprender Basic, não deve ter medo de pressio- 
nar qualquer tecla, não importa se o manual diz o contrário, porque o máximo que 
pode acontecer é um “crash”, ou seja, o computador pára de entender Basic. Você 
deverá então desligá-lo e ligá-lo novamente, que ele continuará inteiro à sua dispo- 
sição. 


Vamos começar com uma pequena revisão da linguagem Basic. 


Você já viu, no manual, as palavras-chave que a linguagem Basic utiliza. Quan- 
do o cursor, aquele pequeno quadradinho que aparece na tela da sua televisão, está 
com a letra K, significa que ele está aguardando uma palavra-chave de Basic. A par- 
tir disso, ele muda para a letra L, significando que agora está aguardando um valor 
literal. Basicamente, essa é a estrutura de uma linha de comandos em Basic: em mo- 
do imediato, você diz a palavra-chave, em seguida o seu operando, ou seja, aquilo 
sobre o qual ele vai trabalhar e, finalmente, um indicador de final de comando, para 
que ele- execute a sua ordem. É por isso que nós costumamos dizer que o computa- 
dor é uma “máquina burra”, pois, além de dar-lhe uma ordem, você deve mandá-lo 
executar aquela ordem! | 


A diferença entre esse modo imediato, onde nós usamos o micro quase que 
como uma calculadora comum, e o modo programado é um indicador sobre a or- 
dem dos comandos, ou seja, o número do comando, ou melhor, o número da linha 
de programa em Basic. 
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Portanto, um programa em Basic é uma seqiiência ordenada de instruções ou 
comandos nessa linguagem que vai dizer ao computador o que ele deve fazer com 
os nossos operandos, objetivando o nosso resultado. 


Não se preocupe, pois a máquina coloca a numeração das linhas em ordem 
crescente automaticamente, apagando as coincidentes. 


A linha de programa pode ter mais de um comando, separados pelo indicador 
de final de comando (e não final de linha), que é o símbolo : (dois pontos). 


Os números de linhas aceitáveis pelo TK 90X vão de 1 até 9999, inclusive. 
Convém espaçarmos esses números, para futuras inserções, quando das correções do 
programa (ninguém nunca ficou satisfeito com a primeira versão do seu programa). 


Com o programa feito, então você deve ordenar ao computador para que ele 
execute aquela sequência de comandos. 


Esses comandos, basicamente, se dividem em: 


1 - Comandos de saída de dados; 

2 - Comandos de entrada de dados; 

3 - Comandos de atribuição; 

4 - Comandos de controle e edição; 

5 - Comandos de desvios de processamento; 
6 - Comandos de armazenamento; 

7 - Comandos condicionais e 


8 - Comandos gráficos. 


Procure, a título de exercício, colocar numa folha à parte os diversos coman- 
dos de cada grupo citado, a partir do manual. 


Para que o computador possa entender as nossas ordens em uma linguagem de 
alto nível, existe dentro dele um “dicionário”, ou seja, um interpretador que tra- 
duz as nossas ordens em instruções que o computador possa entender, em lingua- 
gem binária, de dígitos O e 1, que é a linguagem do computador, dificílima de ser 
entendida por nós, mas com duas grandes vantagens sobre a linguagem Basic: eco- 
nomia de memória e maior rapidez de processamento (por não precisar do inter- 
pretador). 


Portanto, a maneira usual de um computador executar um programa em 
Basic é interpretá-lo, comando por comando. A outra alternativa é compilar este 
programa, ou seja, através de um programa escrito em linguagem de máquina, cha- 
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mado compilador, o programa em linguagem de alto nível é totalmente traduzido 
para a linguagem de máquina, para que depois seja processado de uma vez, em se- 
quência, ganhando velocidade de execução. 


Portanto, arregace as mangas, ligue o seu pequeno notável e mãos à obra! 


Vamos, antes de iniciar o conteúdo propriamente dito deste livro, exercitar 
alguns programas em Basic. 


Se você já carregou toda a fita de demonstração que acompanha o micro, já 
deve estar familiarizado com o teclado. Se ainda não o fez, experimente, pois as li- 
ções sobre como manipular o teclado são muito boas. 


Vamos então ao treino de programas. 
Experimente digitar o programa nº 1, a seguir. 
Digite os algarismos 10 e repare que o cursor está em K. 


Pressione então a tecla P, para imprimir a palavra-chave daquela tecla, PRINT. 
O cursor passou para L. Pressione SYMBOL SHIFT e junto a tecla P, outra vez. 
Agora foi impressa a aspa e o cursor continua em L. Digite qualquer nome, não 
esquecendo que para se obter letras maiúsculas deve-se pressionar CAPS SHIFT 
junto com a letra desejada. Não se esqueça de fechar a aspa, mas, caso o tenha 
esquecido, o micro o avisará que ele entendeu aquela linha de programa (eviden- 
temente, após você ter digitado ENTER, para avisá-lo de que a sua linha termi- 
nou ali) até o sinal de interrogação, e que, dali para a frente, algo está estranho 
para ele. 


A linha 20 significa o comando SOUND 0,5 segundos e tonalidade 10. 


A linha 30 faz o processamento do programa ser desviado para a linha 10 no- 
vamente, através do comando GOTO 10. | 
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Agora altere esse mesmo programa, para o seguinte: 
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Observe a linha 10, onde foi introduzido outro sinal: 
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Você sabe “mudar” essas linhas, não sabe? 


Se não, vamos lá. 


Primeiramente digite, em modo direto, qualquer puavia-wiavo. 


Suponhamos que não era essa palavra que você queria digitar. Você, então, 
deverá deletá-la. Para isso, primeiramente, deve pressionar CAPS SHIFT e, em se- 
guida, a tecla O, onde está escrito em branco a palavra DELETE. Pronto, a pala- 
vra-chave foi apagada. 


Como fazer isso em modo programado? 


Você digita uma linha de programa, e em seguida avisa ao micro que sua linha 
terminou, através do comando ENTER. Se a linha estiver absolutamente com a sin- 
taxe correta, ela é aceita pelo micro, e passa, para a parte superior da tela, o campo 
de programa. Para corrigi-la, primeiramente coloque o cursor indicador de linha cor- 
rente, aquele símbolo “>”, que deve estar imediatamente após a última linha digi- 
tada, na linha que se quer corrigir, através da tecla 7, que tem sobre ela uma seta 
apontando para cima. É uma das quatro teclas cursoras do micro. Quando o cursor 
chegar até a sua linha, você então deve trazê-la para a área de edição, que é a área 
inferior da tela, a fim de ser editada. Você consegue isso pressionando CAPS SHIFT 
ea tecla 1, que tem escrito sobre ela a palavra-chave EDIT. | 


Pronto, a linha de programa está na parte inferior da tela. Agora, com outra 
tecla cursora, a 8, leve o cursor até uma posição após o que você vai “deletar”. No- 


vamente com CAPS SHIFT e a tecla O você apaga o erro, e está pronto para intro- 


duzir a alteração. 
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Agora, altere novamente a linha 10 do programa nº 1: 


Tt FE a arado E Te e o i os 
be? fr dum! : hd Tosa qm que, Juma, fim om = à ro 
li Po, da Dé mito Egilarado fi im 
mt OM, ma om mo a e, oa, qem e q qm o la qua qm a 
; E ] pd E RR mo 
Lodi diriiolLiisirms 
sato O — 
nt ER SEE oo Tiso ERR mmcem mm - 
E dm? Lume 7 8 mel 2 da tm + TO bm i td Com am à fm = Ee dick 
msPdo Mmiihil amo ma 
e RR Coml Dam? Tut D O ant tal dem! for 
“at Pai Er TT oa 
ti o É O 
: e 
. 
E outra linha 10 
e mer É sUivE «sam, mo < . numa + qa “ gs A z 1 
dido iene ndo uUUúLemadliasads Fa E It 
om mé E Steinido e? o mm a lema Cê Cam Comi E tai Cam Rida 
mr = mm, nm q É 
á : O mi 3 Potro D dm 
PoTpoGi do tilt mito stisid 
ad) — = 
io em Mo Tião Driionttioo mos am 
lo “am? ter? arm Com É Dot E ui do Ta Tuas É Came mt Sa a em = So Ai 
+ — imo “.* pm, * rar aa 
E ya Er do À di ingl mim jm 
dit co À À ld to Care? Coma? Com O O Lt toe dx 
“o JoL y To CIR 
tua SA im ia ET edi MTE 
; 
. 
Agora, altere as linhas 20 e 30 para: 
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Quais são as diferenças? 


Com a função RND-na linha 20, o computador passa a gerar diversos tons de 
notas musicais, na faixa de O até 69, aleatoriamente, ou randomicamente. 


Na linha 30, a introdução do comando RUN mudou todo o programa. Isto 
porque este comando faz a inicialização da memória, ou seja, limpa tudo o que lá 
existe, inclusive alguma posição de impressão, para começar tudo outra vez. 


Passemos agora para o programa nº 2, um pouco mais avançado: 
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Na linha 10, o computador vai imprimir a mensagem entre aspas e esperar que 
você digite um valor alfanumérico (observe as aspas, no canto inferior esquerdo da 
tela — é um lembrete do micro para você), para que ele faça a associação dessa série 
de caracteres à variável alfanumérica de nome a$. 


Na linha 20, o mesmo raciocínio para uma variável numérica. 


Na linha 30, ele imprime a série “OLA” e a variável alfânumérica a$. 


Na linha 40, existe uma condição para que seja executada a alternativa de im- 
pressão: se o valor numérico digitado na linha 20 satisfizer essa condição, ou seja, a 
condição passa a ser verdadeira, então a alternativa será executada. 


Na linha 50, outra condição, de idêntico raciocínio da linha anterior. 


Na linha 60, foi feita uma atribuição de valores. Atribuiu-se à variável de no- 
me c o dobro do valor digitado na linha 20, através da operação aritmética da soma. 


Na linha 70, uma simples impressão de séries junto com variáveis. 


Na linha 80, o micro pulará três linhas, antes de executar o comando da linha 
90, que desvia o processamento do computador para a linha 10, ou a primeira linha 
do programa, mas não faz a inicialização da memória, como o comando RUN, 


Agora, faça exatamente isso — a inicialização da memória, alterando a linha 
90 e introduzindo a linha 100. 
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Essa é a função da pausa. Aguarde um instante. 


Agora, vamos “formatar” os dados de saída, ou seja, vamos alterar à posição 
de impressão das mensagens na tela, através da tabulação nas linhas 30 e 70, e a mu- 
dança de posição das linhas 40 e 50, alterando a posição relativa a uma coluna e à 


uma linha. 


Para que você se acostume com as posições de impressão, introduza no com- 


putador o programa nº 3, a seguir: 


Observou o que acontece com esse programa? 


A linha 90 faz o desvio do processamento do programa para a linha 80, que 
possui uma mensagem de impressão sempre na mesma posição, o que dá a impressão 


de que o micro parou de trabalhar. 


Procure alterar, como exercício, os valores dessa linha, incrementando-os ou. 


decrementando-os. 
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Experimente rodar esta versão do programa sem a linha 90 para ver o que 
acontece. Quase não dá tempo de se ver o que está na tela. 


Mas, e se você digitar um número de linha ou de coluna maior que o permi- 
tido? Certamente o micro lhe devolverá uma mensagem de erro, não aceitando esses 
valores. 
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Digite essa nova versão do mesmo programa: 
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Note, na linha 40, a condição que examina se o número é par ou não. 


Experimente alterar a linha 80, de modo que ela não apague o que já existe 
na tela. 


Agora veja, no programa nº 5, a função RND sendo executada infinitas ve- 
zes. Maiores detalhes sobre essa função e esses números “aleatórios” serão dados 
mais tarde, em outro capítulo. Por enquanto, apenas treine a linguagem Basic. 
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Experimente esta nova versão do mesmo programa, só que mais rápida. 
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E altere a linha 20, de modo que haja inicialização da memória: 
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No próximo programa, de nº 6, está uma sugestão para se fazer cartões de 
cinco dezenas na LOTO, com os números que o micro fornecerá. Experimente, 
quem sabe ele tem sorte! 


Note a presença de outro comando, que denominamos LOOP através dos co- 
mandos FOR para abri-lo e NEXT para fechá-lo: É 
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Experimente o programa nº 7, que varia tons de notas musicais: 
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Altere-o, introduzindo a linha 20; para que ele seja processado infinitas vezes. 
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Passemos então para o programa nº 8, que mostra o efeito dos comandos 
FLASH e INVERSE separadamente e depois, na outra versão, esses mesmos co- 
mandos juntos e finalmente o comando BRIGHT. 


Note que nas três versões você deverá pressionar qualquer tecla, para que ele 
passe para a linha seguinte. O modo mais fácil é pressionando-se somente ENTER, 
ou seja, uma série vazia ou nula. 


tg 52 


Pressionando-se o programa será interrompido. 


“Se não houvesse essa condição das linhas 20 e 40, como PR um pro- 
grama que aceita até a palavra STOP como série, ou considera BREAK como um 
espaço? Simples: basta apagar uma aspa da parte inferior da tela e, então, através 
de SYMBOL SHIFT e tecla A, acionar o comando STOP, que agora funciona. 
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Agora experimente o programa nº 9, que utiliza dois loops que costumamos 
chamar de “aninhados”, ou seja, um tem obrigatoriamente de estar totalmente 


contido dentro do outro. 
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Digite esta nova versão do programa nº' 9, onde o micro vai perguntar com 
quantas linhas e colunas você quer que ele trabalhe e, além disso, mostra uma nova 
utilização do comando OVER 1, ou seja, imprimindo na mesma posição, a mesma 
série, e resultando então em nada, ou seja, apagando aquela mensagem impressa. 
Verifique a velocidade da execução deste comando, pois, comparativamente com a 
versão anterior, a mudança de velocidade é quase que imperceptível. 
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Neste programa, de nº 10, utilizamos uma matriz numérica de cinco valores. 
Digite-o para perceber, através das linhas 50 em diante, que aqueles valores digita- 
dos no início agora estão guardados na memória do micro, para que possamos 
acessá-los quando quisermos, a menos que se digite um comando RUN (lembra-se 
da inicialização da memória?), ou se desligue o micro, ou mesmo que o processa- 
mento passe outra vez pelo comando DIM, apagando então os conteúdos existentes 
e reservando espaço para novos conteúdos. 
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No programa seguinte, também sobre matrizes, de nº 11, criamos uma ma- Bem, espero que, com esta breve introdução e revisão da linguagem Basic, 
triz alfanumérica de três elementos de comprimento 5. Repare, ao rodar o progra- você tenha adquirido uma maior intimidade com o seu micro, e percebido que ele 
ma, que qualquer comprimento de nome digitado superior a 5 é desprezado pelo obedece sem reclamar a qualquer ordem que lhe é dada (desde que ele a entenda! 


micro. E 
| É assim que se aprende computação: praticando, exercitando, sem medo de 


errar. No decorrer deste livro, procure entender mentalmente a execução dos pro- 


DR ue blemas que surgem, antes de digitá-los. Facilita demais a tarefa de aprender. 
30 FOR t=i TOS | O ds , Ê j 
So INPUT "Digite om à E, se você quiser algo mais que a linguagem Basic, esta editora lançará um 


+ | Ê | livro sobre Linguagem de Máquina para este micro, desde mesmo autor, com exem- 


Bed Ri E As 
e ADA - : i 4qui Í 
EO COTINT EL BT dm vpraceinaes plos incríveis sobre a total capacidade desta pequena máquina maravilhosa. 
PR a e dedo io al RES Ri DA ER a DR ST 
quUacduer lazcia | PRUSE É 

Saoet EM a ts o 2 a 
Pa Da? E DO 1 aÃ Fe um Di temp 
SO PRINT dir 

ot Pd US Ca + : 

Lp JA q 


Altere, então, o comprimento dos elementos dessa matriz, conforme linha 20, 
da nova versão do mesmo programa. 


Repare uma novidade na linha 60: ela simplesmente imprime, na parte infe- 
rior da tela, qualquer mensagem que queiramos. (Maiores detalhes sobre fluxos e 
canais, em outro capítulo do livro.) 


Veja também que utilizamos PAUSE 0, que significa pausa por tempo infinito 
(nem tanto), até que digitemos alguma tecla. 
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O queé o TK 90X 


É gratificante, ao se comprar um livro, abrilo em uma página qualquer, ler 
um trecho, retornar, ler o capítulo anterior, ler o último capítulo. . . e descobrir 
logo quem é o assassino. Com os computadores é um pouco diferente — como são 
as máquinas mais lógicas que existem, qualquer pessoa que queira entendê-las deve 
começar, logicamente, pelo princípio. 


Podemos descrever qualquer sistema de computação, sob três aspectos dife- 
rentes. | 


O primeiro aspecto é relativo à descrição sucinta do sistema de um modo ge- 
ral, a partir de sua CPU e seus periféricos. 


O segundo aspecto refere-se ao hardware (partes físicas) do sisterha propria- 
mente dito. 


O terceiro aspecto é sobre o desempenho lógico do micro. 


O SISTEMA 


O microcomputador TK 90X é uma pequena caixa preta, de plástico, medin- 
do 236mm de largura, por 146mm de profundidade e 44mm de altura. Na super- 
fície horizontal superior estão dispostas as quarenta teclas de um composto de sili- 
cone, com as legendas impressas pelo processo chamado hot-stamping, ou seja, 
silk screen a quente, para maior durabilidade, que compõe o seu teclado. 
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Na traseira da caixa estão dispostos, da esquerda para a direita, o plug que 
conecta com a entrada da tevê (plug da antena externa); o soquete de entrada que 
conecta com a saída do provador cassete; o soquete de saída que conecta com a 
entrada do gravador cassete; o plug de conexão para joysticks tipo Atari; e o slot de 
expansão da máquina, onde se conectam diversos periféricos de entrada/saída, tais 
como uma impressora (ZX Printer, Alphacom 32 ou TK 5005), uma interface RS 
232, a interface de compatibilização com o microdrive, e finalmente o plug 
de voltagem. 

A placa de circuitos, incluindo o microprocessador Z80 e outros componentes 
eletrônicos, encontra-se dentro dessa caixa preta, tomando toda a sua dimensão, e é 
separada do teclado por dois cabos de ligação. 


Esse sistema pode ser visto esquematicamente na Figura 1. 
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Figura 1 - O sistema do micro TK 90X (sem escala de desenho). 


O que é o TK 90X 3 





O HARDWARE (os componentes físicos) 


A placa de circuitos do TK 90X pode facilmente ser acessada, retirando-se os 
quatro parafusos inferiores que prendem a tampa, onde está instalado o teclado, à 
parte inferior da caixa, onde se encontra a placa de circuitos. Se o seu micro estiver 
na garantia não convém abri-lo, pois destruirá o lacre da garantia, anulando-a. 


Se a curiosidade for muito grande, retire os parafusos, segurando as duas par- 
tes da caixa, para que não se separem e, com o micro em posição de funcionamento, 
levante o teclado muito vagarosamente, procurando não desconectar os seus dois ca- 
bos de ligação com a placa, pois são muito frágeis e suas pontas se desgastam muito 
facilmente. Estes cabos podem ser desconectados, puxando-os suavemente dos seus 
soquetes, mas procure não fazê-lo: use duas hastes (canetas) -de igual comprimento 
para sustentar a tampa, tal qual o capô de um carro. 


Os componentes principais da placa de circuito estão desenhados na Figura 2. 
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Figura 2 - Placa de circuitos eletrônicos e componentes principais do TK 90X. 
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Cada um desses componentes principais será descrito a seguir: 


— O MICROPROCESSADOR Z 80 


Este chip, muito conhecido entre os aficionados da informática, visto que é 
o coração de muitos sistemas que existem por aí, é o mais importante do TK 90X 
e o mais sofisticado (também o mais complicado, em termos de código de máquina) 
dos microprocessadores de 8 bits. 


Como microprocessador, tem capacidade para trabalhar como um “computa- 
dor”, de uma maneira genérica, capaz de executar instruções armazenadas (progra- 
ma). Os programas para o TK 90X, quaisquer que sejam eles, serão sempre conver- 
tidos internamente em instruções em código de máquina do Z 80. 


No TK 90X, o “clock” (relógio medidor de tempo interno de execução de 
instruções) é de 3,75 MHZ e a esta velocidade ele é capaz de processar cerca de 
900 000 das mais simples instruções em código de máquina. É interessante notar 
que, a partir do momento em que se liga a fonta de energia do micro, o seu micro- 
processador imediatamente começa a funcionar, apesar de não mostrar qualquer re- 
sultado. Ele simplesmente fica aguardando uma ordem. 


— À ROM DE 16 KBYTES (ROM = READ ONLY MEMORY — OU MEMÓRIA 
APENAS DE LEITURA) | | | 


O programa em código de máquina que é normalmente executado pelo micro- 
processador Z 80 está contido num único chip de ROM, que manipula 128 kbits, 
ou 16 kbytes de informação. 


Nestes 16 k de “programa monitor” do TK 90X, os aproximadamente primei- 
ros 7 k estão dedicados ao sistema operacional, os 8 k seguintes ao interpretador 
Basic e o k restante, ao gerador de caracteres. 


— A RAM (RANDOM ACCESS MEMORY — MEMÓRIA DE ACESSO RANDÔMI- 
Co) | 


Na versão standard de 16 k do TK 90X, existem oito chips de memória RAM 
de 2 k cada, ou 16 kbits. 


Três destes 8 chips formam o “arquivo da imagem” ou mapeamento da me- 
mória da tela, e podem normalmente ser usados somente com este propósito. O 
quarto chip é dedicado à manipulação dos bytes dos atributos (cores de papel, tinta, 
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flash, bright etc.) das 768 posições de caracteres da tela, e as variáveis do sistema. 
Um pouco mais de 8 k está disponível ao usuário na versão de 16 k, 


Para a RAM total de 48 k, são adicionados mais quatro chips de 8 k cada, ou 
64 kbits. Nesta memória, estão disponíveis para O usuário um pouco mais de 40 k. 


— ALA (LÓGICA DE APOIO) 


Este pode ser considerado como sendo um “grande chip feito de diversos pe- 
quenos chips”. É um dos chips conhecidos como “customizado”, ou seja, só serve 
para esse computador. Ele atua como um “centro de comunicação”, verificando se 
tudo o que o microprocessador requer ou ordena está sendo efetuado; ele também 
“Jê”” a memória para ver em que consiste a imagem da tevê, é envia os sinais apro- 
priados para a interface da tevê. 


— MISTURADOR DE CORES 


Este chip recebe as informações sobre cores da LA e as converte para os sinais - 
apropriados a serem enviados ão modulador VHF. O sinal produzido pelo modula- 
dor é ajustado para o canal 3. 


Em adição a estes componentes principais existem ainda: a interface que 
produz som no alto-falante da tevê; a interface para o gravador cassete; o dissipa- 
dor de calor; o regulador de voltagem, que converte a tensão de entrada em 5 volts 
absolutos, sem oscilação; alguns decodificadores de endereços; e outros compo- 
nentes menores. 


A LÓGICA DO SISTEMA 


Neste aspecto, todas as ligações entre os vários componentes internos do mi- 
crocomputador são consideradas. Estas ligações possuem uma existência real — são 
“caminhos” impressos na placa de circuitos ou, eventualmente, fios de ligação. 


O microprocessador Z 80 pode gerar um endereçamento individual de até 
65536 endereços diferentes de memória (65536/1024 = 64 kb), de cada vez. No TK 
90X, versão 16 k, apenas os endereços O a 32767 (32 kb, sendo 16 k de ROM e 
16 k de RAM) estão disponíveis. Na versão de 48 K, todos os endereços são utili- 
zados. 


No TK 90X, os endereços são produzidos na forma de 16 sinais binários (bits 
- algarismos O e1). O endereço O é, portanto, 00000000 00000000, e o endereço 
65535-é 11111111 11111111. Isto porque o computador trabalha com o sistema 
numérico binário, com os algarismos 0 e 1. | | 
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TT eee orem 








Não entendeu? Vamos ver: HEXADECIMAL DECIMAL 
| 0 0 
No nosso sistema decimal, temos que: 1 1 
1985 2 2 
| 3 3 
, | : 
5x10º =5x 1= 05 4 
8x10! =8x 10= 80, 5 5 
9x10?  =9x 100= 900 6 É 
1x10º = 1 x 1000 = 1000 7 , 
1985 : : 
ou À ao 
4096 B H 
C 12 
Ê 13 
6x10' =6x |= 6 D 
9x10! =9x 10= 90, E I4 
0x10?  =0x 100= O F 15 
3 E E 
id RS UE EO Portanto, para o valor decimal 255, temos em hexa FF e em binário 11111111 
4096 | 
o FF 
Analogamente, no sistema binário, que utiliza somente os algarismos O e 1;-ou | | 
bits, temos para 1 byte (conjunto de 8 bits): 15x16º = 15, 
| 15x16! = 240 
11111111 See 
|! 255 
0 - EE | 
| e | o no E ! O programa a seguir faz as conversões automaticamente entre as bases numéri- 
a RE a cas decimal, binária e hexadecimal. 
1x2 =lx 4= 4 
1x2? =Ix 8= 8. 
1x2º =1x 16= 16 
Rec O o io ga ia Ra 
1x2? =1x128=128 3 REM z de bases numericas + 
' Ou seja, 256 valores diferentes para um byte, que começam em O e terminam é 2 E E = E E É E E ; E : E e E E y : E E e E E = E Re = É 
em 255. Portanto, 2º = 256 ? E O RBS anne ainda Anta a 
256 +256=28 +28 =218=655360u 11111111 1111111 | RO LET ECO as lo o 
Da mesma forma, no sistema hexadecimal, que utiliza os algarismos O a 9 para 38 LET E: E E Z Ene 
valores decimais de 0a 9,e letras de A até F para valores de 10a 15 , temos: dg) IF nz DÊ n:ia2 THEN GO TO 4 
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a , RA Os endereços são gerados pelo microprocessador Z 80 e transportados pelo 


=" | mente, 1, para alta voltagem e O para baixa voltagem. 


O LP uá=s0o THEN Go TO 45 o computador através das Vias de Endereçamento (Address Bus). São no total 16 vias, 
E . pi e Era. e da E, nas quais um endereço pode ser especificado considerando-se uma via possuindo 
LET &=D. Gó Tou as Too Site uma “alta” voltagem (5 volts), ou “baixa” voltagem (O volts), ou ainda, respectiva- 


BRI 
Ed tl 
nm 


Va 
ta 


feia 


Í à no Enquanto as vias de endereço possuem 16 contatos, as de dados (Data Bus) 





SO FETr SM qui O e Ro do TK 90X possuem somente oito contatos, pelo fato de o seu microprocessador 
Co+= LSDGOSbpodendo por isso Sos ser de 8 bits. Portanto, qualquer dado que estiver sendo manipulado pelo sistema, 
E seja ele uma instrução em código de máquina, ou um valor qualquer, ou uma ins- 

E oe mi Ra trução em Basic, deve ser considerado como sendo um número decimal na faixa de 

O IF ufs= THEN -GO TO EE O a 255 (valor máximo de 1 byte), ou na faixa binária de 00000000 até 11111111. 

To ini SUE 155 
Se em RE e MASC nd A figura abaixo mostra esquematicamente como as vias de endereçamento e 

185 LET kã- as vias de dados são interligadas aos outros componentes do TK 90X. 
SO LET Petas. LET Ldsiesouca 16 VIAS DE ENDEREÇAMENTO 
dio dd Xézonê THEM MEU 16/48k RAM 
500 neta fIG+d-dB. NEXT q 
SOB GETURN Eu] 
BET er d=d TO LEN GS LET d=er RS 
Saco GO po mam CT sas a | 
So E pias ia difl THEN LET à 8 VIAS DE DADOS 
so 1 a IL RETUBN O a 5; ENTRADA DE DADOS 
(530 IF disk THEN LET 2=1. GETUR SAÍDA DE DADOS | 
Dis RETUENM Figura 3 - Vias de endereçamento e de dados do TK 90X. 
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O TK 90X é fornecido pela Microdigital com um programa monitor de 16K, 
iniciando no endereço O e terminando no endereço 16383, que proporciona ao 
usuário o emprego de um sistema operacional bem como de um interpretador Basic. 
Também é possível o “abandono” deste programa monitor permitindo-se que o mi- 
croprocessador Z 80 execute um programa em código de máquina escrito pelo usuá- 
rio. Em modo normal de operação, o sistema operacional do TK 90X não requer 
qualquer ação por parte do usuário, e todas as ações desse programa monitor são 
“transparentes” para ele. 


Entretanto, isso acontece sempre que o TK 90X é ligado, mas não em opera- 
ção; o seu interpretador Basic está constantemente “lendo” o teclado, através de 
uma rotina do programa monitor, aguardando uma declaração-em Basic do usuário, 
seja em modo imediato ou em modo programado. 


Note que de nenhuma maneira o microprocessador Z 80 executará um pro- 
grama em Basic — “mas, sim O programa monitor, que é uma rotina em código de 
máquina do Z 80. A única exceção a este procedimento é quando o próprio usuário 
insere no micro uma rotina em código de máquina. 


O mapeamento da memória do TK 90X, versões 16K e 48K, é mostrado es- 
quematicamente na Figura 4 e cada uma dessas áreas será discutida a seguir. 


Nota: A partir daqui, todos os endereços que contiverem apenas algarismos serão 
da base decimal; se contiverem após os algarismos a letra “h” serão da base hexa- 
decimal, e se contiverem a letra “b” serão da base binária. 


— ÁREA DE ROM 


Os 16K de ROM contêm o sistema operacional, o interpretador Basic e o gera- 
dor de caracteres, ocupando os endereços de O a 16383, ou 0000 a 3FFFh. Como 


em qualquer microcomputador baseado no Z 80, o início do programa em código 
de máquina está no endereço 0. 


— ÁREA DE MAPEAMENTO DA MEMÓRIA DA TELA — ARQUIVO DA IMA- 
GEM | | 


Os 6K de memória, do as 16384 até 22527, ou-4000 a 57FFh, formam 
a área de alta resolução gráfica da tela. É importante notar que esta área está fixada 


nessa dimensão pelo hardware do TK 90X, e não pode ser alterada por intermédio 
do software. 
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Figura 4 - Mapeamento da memória do TK 90X. 
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Existe uma relação de um para um entre todos os bits desta área de memória 
e os pixéis (picture elements — menor ponto de impressão) que aparecem na tela, e 
O cálculo seguinte mostra que o número de bits em 6K de memória é igual ao núme- 
ro de pixéis que podem ser mostrados na tela. 


Número de bytes em 6K de memória 
Número de bits em 6K de memória 
Número de pixéis em 32 colunas por 24 
linhas da tela, com 64 pixéis por caractere 
(matriz de 8 x 8) 


= 1024x6= 6144 
=6144x8 = 49152 


=32x24x64 = 49152 


Agora vamos ver isso em termos práticos, ou seja, como são dispostos todos 
esses elementos na tela. (Aguarde mais um pouco — logo ligaremos o computa- 
dor...) 


Inicialmente, vamos considerar a tela da tevê dividida em três blocos horizon- 
tais iguais. O bloco mais alto, começando na linha O e terminando na linha 7 é pro- 
duzido através dos conteúdos dos endereços 16384 a 18431, ou 4000 a 47FFh. O 
bloco central, das linhas 8 a 15, utiliza os conteúdos dos endereços 18432 a 20479, 
ou 4800 a 4FFFh; o bloco inferior, ou seja, o restante da tela do TK 90X, das li- 
nhas 16 a 23, utiliza os endereços 20480 a 22527, ou 5000 a 57FFh. 


Preste atenção nos números em hexadecimal, que sugerem uma fácil manipu- 


lação do arquivo de imagem. Vamos analisar o bloco superior (e, por analogia, os 
outros dois blocos). | | 


Cada posição PRINT necessita de 8 x 8 bits (64); e há 32 dessas posições em 
cada linha da tela (32d = 20h). Por outro lado, cada bloco da tela tem 32 x 8x8 
= 2048 bytes, que em hexadecimal equivale a 0800h. Vimos que os bytes corres- 
pondem à ordem: todos os primeiros bytes do primeiro bloco, os segundos, os ter- 
ceiros etc., o que nos dá um salto de 7! Isso significa, por exemplo, que o primeiro 
byte da primeira posição PRINT da tela dista 32 x 8= 256, ou 0100h, do segundo. 


Conclusão: 


— Para cada posição PRINT, o primeiro byte dista dos seguintes, um múlti- 
plo de 0100h. | 


— Um byte de uma posição PRINT dista do seu byte análogo na posição 
PRINT imediatamente abaixo ou acima, num mesmo bloco, de 0100h. 


— Um byte de um bloco da tela dista do byte com a mesma posição relativa 


noutro bloco, de 0800h, ou 1600h, dependendo do bloco de referência e o bloco a 
que se refere. | 
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Se você já fez algumas experiências em Basic com seu TK 90X e gostou, não 


imagina o quanto isto pode ser útil em programas de manipulação de imagens, tan- 
to em Basic como principalmente em Assembler. 


— ÁREA DE ATRIBUTOS 


O arquivo de imagens possui ainda 768 áreas de caracteres, que vão do endere- 
ço 22528 a 23295, ou 5800 a SAFFh, onde cada uma delas contém os códigos para 
cor de papel, cor da tinta, flash e bright, e são usados para armazenar valores que 
determinam os atributos dos 768 caracteres que podem ser impressos na tela. 


Os valores (menores que 255) dos atributos podem ser considerados a partir 
da expressão: 
ATTR (lin., col.) = INK + PAPER «+ 8 + BRIGHT x 64 + FLASH + 128 
Essa função ATTR (lin., col.) é equivalente a PEEK (22/528 + 32 * lin. + col.) 
' Ou seja, nos bytes dos atributos, os bits O, 1 e 2 determinam a cor da tinta; 


os bits 3, 4 e 5 determinam a cor do papel; o bit 6, se a posição está em modo 
bright ou não, e o bit 7, se está em modo flash ou não. 


Por exemplo: — INK azl o o o di 1 
| PAPER branco =7(7x8=56) 56 
BRIGHT 0 O si a nd O 

FLASH 1 =1(1x128) 128 

185 


A seguir, uma tabela de todos valores possíveis para os atributos de qualquer 
posição. 


TABELA DE ATRIBUTOS 


MODO 


Tm 
Dn [E [SEE 
3 4 5 6 7 


ret | o 
O 1 2 normal 
64 65 |66 |67 |68 69 170 171 bright 
aa 128 | 129 /130/ 131/1132 | 133 /134/135 | flash 
192 | 193 /194| 195 /196 | 197 /198| 199 | bright + flash 


8 9 10 |11 12 13 |14 115 normal 
|72 173 |74 175 176 177 178 179 | bright 
136 | 137 /138/ 139 /140 | 141 /142/143 | flash 
200 | 201 12021 203 1204 | 205 |2061 207 | bright + flash 


BLUE 
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16 E 1H 18191020 ]-21] 22193) nomal 

RED - /80 | 81 /82/83|84 | 85 |86 |87 | bright 

| 144 | 145 [146] 147| 148 | 149] 150| 151 | flash 
208 | 209 210] 211/ 212] 213] 214] 215 | bright + flash 





24. | 25 |26 /27 128 | 29130 |31 | normal 
88 | 89 |90 |91 [92 | 93 |94 |95 | bright 
152 | 153/154] 155] 156 | 157/1581 159 | flash 
216 | 217/218) 219/220 | 221/ 222) 223 | bright + flash 





normal 
bright 
flash 
bright + flash 





32 [33 [34/35 |36 | 37 |38 |39 
GREEN |96 | 97 [98 |99 | 100] 101/ 102] 103 | 
| 160 | 161/162/ 163164 | 165| 166| 167 
224 | 225/226| 227] 228 | 229/ 230] 231 





40 | 41 |42 |43 |44 | 45 |46 |47 | normal 
CYAN 104 | 105] 106] 107/ 108 | 109] 110/ 111 | bright 
168 | 169/170/171/172 | 173] 174| 175 | flash 


232 | 233/ 234] 235| 236 | 237| 238] 239 | bright + flash 


normal 
bright 
flash 
bright + flash 






YELLOW | 112 | 113/114/115/116 | 117/ 118] 119 
176 | 177/178/179/180 | 181] 182] 183 
[240 | 241 | 242] 243 | 244 | 245] 246| 247 





56 60 | 61/62 163 | normal 
120 124 | 125/ 126/ 127 | bright 
184 188 | 189] 190/ 191 | flash 
248 252 | 253| 254] 255 | bright + flash 


Podemos imaginar cada pixel da tela da televisão (colorida) como sendo um | 


pequeno triângulo equilátero, cujos vértices são iluminados. Para cada vértice há um 

pixel vermelho, um azul e um verde, e o arquivo de atributos é usado para contro- 

lar a iluminação (acesa ou não) destas três cores diferentes. O arquivo da imagem 
vai indicar se um determinado pixel deve ser plotado com uma cor de tinta em par- 

ticular. Os três bits mais baixos (0, 1 e 2) do valor do atributo daquela área são usa- 
dos para decidir quais vértices do nosso triângulo imaginário, o verde, o azul ou o 

vermelho, devem ser acesos. Nossos olhos contêm apenas três tipos de sensores de 

cores (verde, vermelho e azul). Nosso cérebro recebe sinal dos três vértices coloridos 

e combina-os em um simples pixel de cor composta. Por exemplo, se os três últimos 

bits de atributo são 111, equivalente à cor 7, nós temos verde + azul + vermelho, o 

que corresponde à luz branca. Os outros códigos de cores, quando escritos na forma 

binária, podem ser interpretados da seguinte forma: 















Oqueéo TK 90X 15 
pa ST eia ep a rasa a a ao SS aa, 


COR CÓDIGO BINÁRIO  VÉRTICES ACESOS. 
Black O 000 

Blue 1 001 Blue 
Red 2 010 Red 
Magenta 3 011 Red Blue 
Green 4 100 Green 

Cyan 3 101 Green Blue 
Yellow 6 110 Green Red 

White 7 111 Green Red Blue 


- Para os interessados, aí está uma boa dica para se obter mais de 8 cores do 
nosso TK 90X. 


— BUFFER DA IMPRESSORA 


Os endereços entre 23296 e 23551, ou 5BO0 a SBFFh são usados a 
buffer da impressora (ZX Printer ou Alphacom 32 ou Timex 2040). Estes E 
bytes são suficientes para armazenar os 32 caracteres em sua forma de alta reso 
ção, os primeiros 32 bytes armazenarão os bits da primeira linha dos caracteres, os 
próximos 32 bytes armazenarão os bits da segunda linha, e assim por diante. 


Se não houver impressora ligada ao seu micro, esta área pode ser usada como 
área de armazenamento de rotinas em código de máquina, elaboradas pelo usuário. E 
(boa dica essa!). Não há interferência com qualquer programa que esteja no micro, 
mesmo que ele ocupe toda a memória. 


— VARIÁVEIS DE SISTEMA 


As 182 posições de memória entre 23552 e 23133, ou 5C00 a 5CB5h, arma- 
zenam as diferentes variáveis do sistema do TK 90X. Se estiver conectado asa mi- 
cro uma Interface One da Sinclair, ou um microdrive, haverá uma ampliação esta 
área, com O surgimento de novas variáveis de sistema que cuidarão exclusivamente 
desses periféricos. No Capítulo 3, estas variáveis serão melhor estudadas. 


— MAPEAMENTO DO MICRODRIVE 


Esta área da memória começa no endereço 23734, ou 5CB6h, e tem apenas 
uma existência teórica na versão standard do TK 90X, ou seja, é uma área que não é 
usada com esse propósito, a menos que a ele seja ligado uíh microdrive. 
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ERES O SAS pa Da a ia E ig Sp pe im 


Sem o periférico, esta área também pode ser usada para armazenar rotinas em 
código de máquina elaboradas pelo usuário. | 


-— ÁREA DE INFORMAÇÃO DE CANAIS 


Esta área especial de memória tem início no endereço apontado pela variável 
de sistema CHCADD, armazenada nos endereços 23631 e 23632, ou SC4F e 5C50h. 
Esta área tem tamanho variável, mas termina num endereço que armazena um mar- 
cador final de valor 128 ou 80h. | 


Na versão-padrão do TK 90X, ou seja, o micro sem periféricos conectados, 
existem detalhes de entrada/saída para quatro canais. Estes canais são: . 


— Canal “K” (palavra-chave) — Permite entradas via teclado e saídas para a 
parte inferior da tela. 


— Canal “S” (screen) — Não permite entradas, mas somente saídas normais 
para a tela. 


— Canal “Rº (RS 232) — Também não permite entradas, mas permite saídas 


para a parte inferior da tela. O tamanho desta área de vídeo pode ser expandido, se 
necessário. 


— Canal “P? (Printer) — Também não permite entrada, mas somente saída 


para a impressora, via slot traseiro. 


As informações de canais consistem, por canal, em 5 bytes de dados. Estes by- 
tes fornecem o endereço da rotina de saída, que toma dois bytes, o endereço da ro- 
tina de entrada, que toma outros dois bytes, e o nome do arquivo, que é um simples 
código da letra correspondente. | 


Como existem quatro canais-padrão e um indicador de final, área de in- 
formação de canais no TK 90X standard ocupa os 21 endereços entre 23734 e 
23754, ou SCB6 e SCCAh. 


Os percursos ou caminhos que os dados percorrem para chegar ou vir destes 


canais são chamados de fluxo. Associados a estes quatro canais-padrão existem qua- | 


tro fluxos: | 
Fluxo 70 — Imprime dados na parte inferior da tela que 
Fluxo % 1 — são lidos do teclado. 
Fluxo & 2 — Escreve dados na parte superior da tela, mas não pode ler dados. 


Fluxo & 3 — Envia dados de saída para a impressora, mas também não lê dados. 


O que éo TK 90X a 


DO Go 


Cada instrução de entrada/saída de dados usa automaticamente um destes flu- 


xos. O comando PRINT usa o fluxo *2 e o comando LPRINT usa o fluxo % 3. 


Portanto, PRINT “TK 90X” é uma abreviação de PRINT * 2: “TK 90X”. 


Se você escrever LPRINT “TK 90X”, o micro manda a mensagem para a im- 

ressora; mas, se você digitar LPRINT % 2; “TK 90X”, esta mensagem é desviada 

a a tela (isso funciona com os diversos comandos de saída, tais como LIST, 
LLIST etc.) 


Analogamente, se você escrever PRINT Fl; AT 0,0; “TK 90X” o micro ga 
mirá a mensagem na linha 0, coluna O, da parte inferior da tela (ou Seja, a partir da li- 
nha 23). Experimente, pois isto é muito interessante na impressão de Asc 
sem interferir no arquivo de imagens! (O que deveria ter sido feito com o comando 


TRACE.) 


— ÁREA DE PROGRAMAS BASIC 


Esta área da memória armazena as linhas de programas em Basic, se existirem. 
O seu tamanho depende justamente de quantas linhas existirem, 


O início da área de programa é sempre dado pelo valor armazenado na variá- 
vel de sistema PROGBAS, que ocupa os endereços 23635 e 23636, ou 5053 e 
5C54h. | 


Note que, na versão standard do TK 90X, a variável de coa Rai ha 
indicar que esta área de programas Basic começa no endereço Ren ou 5 Es NE 
isto sempre vai acontecer, a menos que haja um microdrive eanecial : as a po E 
seja, a área de mapeamento do microdrive esteja sendo usada ou endereços êxt 
tenham sido reservados para informações adicionais de canais. 


Na área de programas Basic, as linhas são armazenadas no seguinte formato: 


Os primeiros dois bytes de qualquer linha armazenam o seu número, sendo o 
primeiro byte o mais significativo, e O outro, O menos significativo. 


O terceiro e o quarto bytes armazenam o comprimento da linha. Aqui, O byte 
menos significativo vem antes do byte mais significativo. O comprimento da tiriha 
significa o número de bytes, a partir do quinto byte até o byte final, ô ENTER Qn- 
dicador de final de linha), inclusive. 


Agora começa a linha de Basic propriamente dita. Os códigos dó TK 90X são 


usados para símbolos, palavras-chave, outros caracteres, € Os códigos ASCII pará 
caracteres alfanuméricos standard. 
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O último byte de qualquer linha é sempre o caractere ENTER. 


Dentro de uma linha em Basic, múltiplas declarações são separadas entre si 
por dois pontos, caractere 58, ou 3AH. Note que se numa linha Basic existir um nú- 
mero, em decimal, ele será armazenado em caracteres ASCII e seguido pelo caracte- 
Te NÚMERO — código 14, ou OEh, e em seguida forma de ponto flutuante para nú- 
meros quaisquer ou a forma inteira para números inteiros da faixa -65535 à +65 535, 
onde, em ambos os casos, são consumidos 5 bytes. Isto significa que são reservados 
E foda de RAM para cada número decimal que estiver incluído num programa 

asic!!! 


O programa-demonstração a seguir mostra o seu próprio conteúdo armazena- 
do na área de programas. 
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— ÁREA DE VARIÁVEIS 


O endereço inicial desta área que armazena as variáveis correntes de um pro- 
gramá Basic é sempre dado pelo valor contido na variável de sistema VARADD, 


que ocupa os endereços 23627 e 23628, ou 5C4B e 5C4Ch. 


No TK 90X, o início dessa área não vai mudar durante a execução de um pro- 
grama Basic, mas sim quando nela for introduzida uma nova variável. 


O último endereço desta área sempre contém o marcador de final de área, ca- 
ractere 128 ou 80h. 


O programa a seguir mostra o conteúdo da área de variáveis, que contém ape- 
nas a variável de controle do loop. 


Programa-demonstração da área de variáveis: 
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— ÁREA DE EDIÇÃO DE LINHAS 


0 início desta área que armazena a linha Basic que está sendo digitada, ou edi- 
tada, é sempre dado pelo valor armazenado na variável de sistema INADD que ocu- 
pa os endereços 23641 e 23642, ou 5C59 e 5CSah. | 


Quando a parte inferior da tela mostra apenas o cursor intermitente, a área 
de edição de linhas tem três bytes reservados para ela. O primeiro, cujo endereço é 
dado pelo conteúdo da variável de sistema CURADD, armazena um caractere 
ENTER, e o segundo armazena um marçador de final, caractere 128, ou 80h. 


o Os caracteres digitados a partir do teclado são, então, transferidos para esta 
área, que é expandida, para armazená-los, 


Um procedimento similar é obtido quando se digita a tecla EDIT (CAPS 
SHIFT e tecla 1), para corrigir uma linha de programa. Em primeiro lugar, a área 
de edição é expandida para o comprimento igual ao da linha a ser ditada. Então 
esta linha é copiada sobre o conteúdo anterior da área, | 


— INPUT DADOS E ÁREA DE TRABALHO TEMPORÁRIO 


Esta área da memória é usada para muitos propósitos, como, por exemplo, 
dados de entrada, concatenação de cadeia de caracteres etc. O endereço inicial dá 
área é dado pelo valor armazenado na variável de sistema WORKPT, de endereços 
23649 e 23650, ou 5€61 e 5€62h, Quando se faz necessário uma maior área de tra- 
balho, esta área é expandida, Após o uso, ela é então esvaziada. 


— ÁREA DA PILHA DE CÁLCULO 


Esta é uma área muito importante da memória e começa no endereço aponta- 
do pela variável de sistema STKCEND, de endereços 23651 e 23652, ou 5C63 € 
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ea 
sC64h, e vai até o endereço apontado pela variável de sistema ADSPFEE, de ende- 
reços 23653 e 23654, ou 5C65 e 5C66h. 


Esta área é usada para armazenar os números em ponto flutuante em cinco 
bytes e quando manipula cadeias de caracteres utiliza grupos de cinco bytes como 


parâmetros delas. | 

A manipulação desta pilha de cálculo é feita sob a forma conhecida como 
“LIFO”, do inglês “Last-in First-out”, ou seja, o último valor depositado na pilha é 
o primeiro a ser retirado. 


— ESPAÇO LIVRE 


A área de memória entre a pilha de cálculo e a pilha da máquina representa a 
quantidade de memória que é disponível ao usuário. Na versão standard do TK 
90X existem nominalmente 8839 endereços nesta área quando se liga o compu- 
tador. Para a versão de 48K de RAM existem esses 8839 mais os adicionais 32K. 
Entretanto, é interessante notar que o valor mais baixo aceitável para CLEAR é 
23821, que traz a RAMTOP 8878 bytes para baixo, ou na RAM de 48K, 8878 


mais 32K (41646K). 


— ÁREA DA PILHA DA MÁQUINA 


O microprocessador Z 80 deve ter uma área de trabalho disponível apenas 
para ele, chamada de pilha da máquina, onde ele vai manipular valores dos progra- 
mas armazenados na memória. 


— ÁREA DA PILHA DE GO SUB 


Sempre que existir um loop de GO SUB, o número da linha desse loop será 
armazenado nesta área. 

Cada número de linha de GO SUB requer três endereços. O mais alto arma- 
zena o número da declaração dentro de uma linha de programa Basic, para onde o 


retorno deverá ser feito. O próximo endereço armazena a parte menos significativa 
do número da linha de programa, e o último armazena a parte mais significativa des- 


se número. 


A variável de sistema RAMTOP, que ocupa os endereços 23730 e 23731 ou 
5CB2 e SCB3h, armazena o endereço que contém o valor 62, considerado como 


sendo o último endereço da área de Basic. 
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— ÁREA DE DEFINIÇÃO DE GRÁFICOS DO USUÁRIO 


Os últimos 168 endereços da memória RAM do TK 90X são reservados para 
armazenar as representações dos bits dos caracteres gráficos definidos pelo usuário, 
a menos que tenha sido invadida pelo sistema Basic, quer pela modificação de ende- 
reços, através do uso de CLEAR, ou por um programa Basic muito extenso. 


Como parte do procedimento de inicialização do TK 90X, a representação bit 
a bit das letras de “A” até “U” é copiada nesta área. O usuário, ao definir alguns ou 
todos os 21 caracteres gráficos, muda esta representação. 


O último endereço da memória é sempre fornecido pela variável de sistema 
MEMAVLB, que ocupa os endereços 23732 e 23733, ou 5SCB4 e SCB35h. 


Na versão de 16K do TK 90X, este endereço deve ser 32767, e na de 48K, 
deve ser 65535, valor obtido pela expressão Basic, em modo direto: 


PRINT PEEK 23732 + 256 + PEEK 23733 


"Capítulo II 





A LINGUAGEM BASIC — COMANDOS E FUNÇÕES 


Como citei na Introdução, espero que você já tenha adquirido noções de pro- 
gramação em Basic, e possua uma certa familiaridade com seus comandos e funções. 


Neste capítulo, serão mencionadas todas as declarações e funções do TK 90X, 
com assuntos novos, que não foram citados no manual da máquina. 


O Interpretador Basic do TK 90X standard reconhece cerca de cinquenta co- 
mandos diferentes e trinta e três funções. Cada um deles será discutido neste capí- 
tulo, com alguns exemplos práticos. Eles estão organizados em ordem alfabética, 
para facilitar a sua consulta. 


OS COMANDOS BASIC 


-— BORDERM 


Existem no total oito cores disponíveis para a área da borda da tela que o TK 
90X utiliza. A faixa de números (m) inteiros vai de O a 7. Entretanto (m) é arredon- 
dado e a verdadeira faixa de números aceitáveis começa em -0,5 e vai até 7,49. . 


(m) pode também ser uma expressão cujo resultado se situe dentro da faixa 
especificada. 


O efeito do comando BORDER m é o de enviar um sinal OUT para a porta 
254, e isto pode ser mostrado através da linha: 


23 
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me meme 
OUT 254,m (onde m=2 resulta borda vermelha) 


Mas, OUT e BORDER são muito diferentes. A cor assumida pela área da bor- 
da da imagem, através do comando OUT, é uma cor “provisória”, enquanto um co- 
mando BORDER muda para uma cor “permanente”, com o código dessa cor sendo 
armazenado na variável de sistema BORCLR, de endereço 23624, ou 5C48h. 


Esse efeito pode ser mostrado da seguinte maneira: - 
Digite BORDER 2 e ENTER. 
A cor da borda passará para vermelho. 


Então digite OUT 254,6 e ENTER. 


A cor da borda passará, temporariamente, para amarelo, mas se você pressio- 
nar ENTER novamente a cor da borda voltará para vermelho, a cor permanente. 
Note, também, como BORCLR manipula a cor do papel na parte inferior da tela. 


Experimente digitar este programa: 

10 POKE 23624, RND + 255 

20 OUT 254, RND «7 

30 RUN | 
E veja como é interessante o resultado. 
Agora, experimente a linha de programa: 


10 PAUSE 1: BORDER 1: BORDER 2: BORDER 3: BORDER 4: BORDER 
5: BORDER 6: BORDER 7: BORDER 0: GOTO 10 


—- BRIGHT M 


Este é o primeiro comando de cores. Tod 
ser utilizados como comandos únicos em 
Basic, sendo, neste caso, comandos com res 


em declarações tipo PRINT, os resultados s 
da tela. 


os estes comandos de cores podem | 
modo imediato, ou em uma declaração 
ultados permanentes; se forem utilizados 
erão “provisórios”, pois só atingem parte 


m pode ser uma expressão numérica, mas somente com resultado iguala 0,1 
ou 8. | | 
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ri | E 


Comm =0a tela voltará ou permanecerá com º brilho normal das cores, E 
passo que comm = Iqualquer impressão futura será feita de modo mais SR - 
terando a tonalidade-padrão das oito cores do TK 90X. O emprego de BRIG e 
CLS é o modo mais fácil para que toda a imagem passe a modo brilhante. 


Com m =8 qualquer impressão a ser feita na tela considerará o estado em que 
E E 33 
já se encontrava a tela, ou seja, m = 8 quer dizer “transparente”, sem alterar nada. 


As linhas abaixo mostram os quatro diferentes modos de como um comando 
de cor, com o BRIGHT, pode ser usado. 


10 BRIGHT 1:PRINT “BRIGHT —*”:: 
BRIGHT 0: PRINT “NORMAL” 


O brilho da cor é alterado de duas maneiras, sempre permanentemente. 


“ 20 PRINT BRIGHT 1; “BRIGHT —”; BRIGHT 0; “NORM AL” 
que muda o brilho temporariamente, durante a declaração. 


30 PRINT CHR$ 19 + CHR$ 1; “BRIGHT —”; CHR$ 19 + CHR$ 0; “NOR- 
MAL” 


que substitui O comando pelo seu CHR$ equivalente. 


40 LET A$ = CHR$ 19 + CHR$ 1: LET B$ = CHR$ 19 + CHR$ O:PRINT 
AS E “BRIGHT = B$ : “NORMAL” 


que coloca os comandos de cor em uma variável tipo série, ou tipo série de 
caracteres. 


Existe outro modo de se “ligar” ou “desligar” o BRIGHE , que não foi citado 
no manual do TK 90X. Com o cursor em modo E, ou seja “extended mode , Se 
você pressionar a tecla 9, automaticamente obterá o modo BRIGHT 1; se bas 
nar a tecla 8, desativará, ou seja, retornará ao modo BRIGHT 0. Isso pode ser e | 
zado dentro de aspas, na impressão de mensagens, ou mesmo com aaa e 
atribuição, como por exemplo LET A$ = ”*? (com o modo extendido Rd E 
aspas). Digitando PRINT A$ lhe dará o mesmo efeito que BRIGHT 1 ou B 
0, dependendo do que você colocou entre aspas. 


— CATM 


Para uso exclusivo com microdrives. 


Fornece a listagem de todos os arquivos gravados no cartucho inserido no Mi- | 
crodrive m (com m indo de 1 a 8). A listagem é apresentada em ordem alfabética, 
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precedida pelo nome do cartucho e seguida pela quantidade de memória disponível 
naquele cartucho, expressa em Kb. | o 


— CIRCLE x,y,z 


Este comando desenha um círculo de raio z, e coordenadas x é y do centro. 


O valor z deve ser um número absoluto inteiro, enquanto x e y são manipula- 


dos como números de ponto flutuante. 


O maior círculo que pode ser desenhado possui raio 88, como na linha CIR- 
CLE 127,5, 87,7, 88. Se o raio é zero, o círculo é um simples ponto. . 


Qualquer comando de cores pode ser inserido num comando CIRCLE, mas 


seu efeito será sempre provisório. 
Experimente a linha: 
“10 FORf= 168 TO 4 STEP 4:CIRCLE INK RND « 6; £, f/2, f/2:NEXT £ 


E perceba a diferença entre um arquivo de imagens de alta resolução gráfica e 
um arquivo de atributos de baixa resolução gráfica. | 


— CLEAR E CLEARN 


Como o TK 90X possui uma grande quantidade de memória RAM disponível 
para o usuário, o emprego do comando CLEAR é muito vantajoso. Ele tem a facili- 
dade de mover a RAMTOP, fazendo a área de programas Basic aumentar ou dimi- 
nuir. Como a memória RAM faz o papel de um bloco de rascunho, tudo o que esti- 
ver dentro dela será apagado pelo comando NEW. O que estiver acima da RAMTOR, 


porém, não será atingido por esse comando. 


O limite inferior para n é 23821, e após um comando CLEAR 23821, 0 TK. 
90X emitirá um sinal sonoro avisando que não cabe qualquer declaração ou linha 
de programa Basic na memória. o 


O limite superior para n é 32767 em máquinas com 16K de RAM, e 65535. 
em máquinas de 48K. O uso de CLEAR n com um número apropriado tem o efeito 
de colocar as pilhas da máquina e do GOSUB na área usada para caracteres gráficos 
do usuário. É interessante tentar os passos a seguir que ilustram este efeitc. 


Digite CLEAR 32767 (ou 65535) 
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Mude o cursor para modo gráfico (6) e pressione as letras de A até U. Então 
mantenha pressionada a tecla de SPACE por alguns segundos e observe as alterações 
de valores de cada tecla pressionada, indicando o uso da pilha da máquina. 


— CLOSE = FLUXO 


Para uso com microdrives. 


Desconecta um canal do fluxo especificado. 


— CLS 


Trata-se de um comando aparentemente simples de ser utilizado, que toma 
menos de um décimo de segundo na sua execução, mas que envolve muito trabalho 


por parte do microprocessador. 


O comando CLS limpa o arquivo de imagem. Ele “zera”, ou seja, inicializa to- 
dos os endereços de 16384 a 22527, ou 4000 a 57FFh, bem como inicializa todos. 
os endereços do arquivo de atributos, que vão de 22528 a 23295, ou 5800 a SAFFh. 


Na realidade, essa inicialização é feita através da cópia do valor armazenado 
na variável de sistema ATCLR P em cada posição do arquivo. 


Fazendo-se diversos POKE na variável ATCLR P, vemos claramente a atuação 
de CLS. Digite: 

10 POKE 23693, RND + 255 

20 PAUSE 0: CLS: GOTO 10 


Em ATCLRP,o bit 7 controla o FLASH, o bit 6, o BRIGHT, os bits 5-3 con- 
trolam a cor de PAPER e os bits 2-0 controlam INK. 


— CONTINUE 


Muitas vezes este comando trabalha muito bem. Mas, em modo direto, o usuá- 
rio perceberá que o computador entra num “loop” contínuo, até que se pressione 
BREAK. 

Existem duas facetas distintas do comando CONTINUE. A primeira é a que 


permite ao usuário, em tendo declarações STOP dentro de um programa Basic, fa- 
zer o seu processamento parar e, em seguida, continuar, através da tecla CONT. Des- 
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ta forma, pode-se examinar o programa, suas declarações, suas variáveis, alterar valo- 


res em suas linhas etc. Facilita o “debugging” (correção) de programas. Também 
pode ser utilizada a tecla BREAK. 


- A segunda faceta permite ao usuário repetir a interpretação de uma declara- 
ção, após corrigir um erro. Por exemplo, se um programa pára por falta de definição 
de variáveis, ou “variável não encontrada”, esta pode ser definida pelo usuário atra- 
vés de um comando direto, e o programa pode ser reiniciado pelo comando CONT. 


Seis variáveis de sistema estão envolvidas de alguma forma na execução 
do comando CONTINUE. São elas: INJMP, INSTRNR, EXCLINE, SUBLEXC, 
CONTJMP e CONTNR. 


— COPY 


Este é um comando muito particular. 


Se houver uma impressora conectada ao slot traseiro do TK 90X, as 22 linhas 
superiores da tela serão enviadas a essa impressora. As 176 linhas de alta resolução 
do conteúdo do arquivo de imagem serão enviadas em partes. Este comando CO- 
PY é um dos muitos que desligam o “relógio de tempo real” (o clock do Z 80), por- 
que o comando é mais lento do que esse relógio. Pode-se verificar isto, examinan- 
do-se a variável de sistema TVCOUNT antes e depois do uso de COPY. | 


- DATA a,b,c,... 


Este comando, que só pode ser utilizado em modo programado, armazena 
uma listagem de valores que são associados aos nomes de variáveis contidos em ou- 
tra linha do programa que obrigatoriamente começa com o comando READ. É 


uma dupla de comandos muito útil, pois economiza memória, já que pode agrupar 


diversos comandos LET (comparativamente) em uma mesma linha. 


— DEF FNc(d,. .w)=g & DEF FNb$ (d,.. .f)=r 


Este é um comando muito poderoso no TK 90X. 


O usuário pode definir um total de 52 funções — 26 numéricas e 26 alfanu- 


méricas. Os nomes usados para essas funções devem portanto ser de um simples 


caractere (com $ para alfanuméricas). 
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— DIM x (al,.. ak) & DIM x$ (al,.. .ak) 


O comando DIM reserva espaço na memória RAM do computador para uma 
matriz numérica ou alfanumérica, de quantos elementos forem definidos em sua de- 
claração, através da variável subscrita, que aparece em primeiro lugar entre parênte- 
ses, iniciando obrigatoriamente em 1 (outros sistemas permitem iniciar em 0). O úl- 
timo elemento dentro do parênteses é o comprimento de matrizes alfanuméricas. 
Siga o exemplo: 

10 DIM a$ (1, 704) 

30 FOR f = 1 TO 168 STEP 4: CIRCLE f, 87, f/2: NEXT f 

30 PRINT FLASH 1; AT 11, 13; “TK 90X” 

40 INPUT “BRILHANTE OU NÃO (1 ou0)”; b 

50 INPUT “Que cor de papel?”; p 

60 PRINT OVER 1; BRIGHT b; PAPER p; INK 9; AT 0,0;,a$ (1) 


70 GOTO 50 


— DRAW x,y & DRAW w, y,Z 


Este comando desenha uma linha a partir da última posição PLOT, exclusive, 
até um ponto que está a distância x horizontalmente e a distância y verticalmente. 
Se o argumento z é especificado, então é desenhado um arco de círculo, em vez de 
um segmento de reta. Esse argumento z deve ser especificado em radianos, onde se 
z= PI, o arco de círculo é um semicírculo. Se z é positivo, o arco será desenhado no 
sentido anti-horário, e se z é negativo, o arco será desenhado no sentido horário.” 


Qualquer comando de cor pode ser utilizado juntamente com O comando 
DRAW; não se esqueça de que o efeito desse comando de cor, se utilizado desta for- 


"ma, é temporário. 


Agora, coloque a ROM do seu micro em transe. 


10 FOR f= 201 TO 1000 STEP 20: BORDER RND + 6: PAPER RND + 6: 
INK 9: CLS: PLOT 100,60: DRAW 70, 70, £ * PI: NEXT f. 


= ERASE “m”;y; “nome” 


Para ser usado com microdrive. 
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Apaga Oo arquivo especificado pelo “nome” no cartucho inserido no micro-. 
pag q | 
drive de número y (de 1 a 8). 


— FLASH m 


Este é o segundo comando de cor. Quando usado sozinho em uma declaração 
Basic, seu efeito é de cor permanente, mas quando utilizado juntamente com uma 
declaração PRINT, seu efeito passa a ser “provisório”. 


Como BRIGHT, m pode assumir os valores 0, 1 e 8. 
Com m-0 > área sem intermitência 
m=1 > área com intermitência 


m=8 —> área não sofre alteração 


FOR x= a TO b STEPc 


O comando FOR é um dos comandos mais interessantes da Basic, e geralmen- 
te muito pouco compreendido, dada a sua grande faixa de atuação. 


As fases executadas pelo interpretador, quando encontra um comando FOR, 


— Cancela qualquer variável existente que possua o mesmo nome da variável 


de controle. 


-— Adiciona às variáveis existentes no programa a nova variável de controle 
(x). Esta variável ocupa dezenove endereços de memória. O primeiro endereço ar- 
mazena o código da letra que é o nome da variável. Os próximos cinco endereços 
armazenam o valor inicial (a) da variável de controle, como um número decimal de 


ponto flutuante. Outros cinco endereços são consumidos para armazenar o valor-li-. 


mite (b) da variável de controle, sob a mesma forma do valor inicial. Os outros cin- 
co endereços seguintes são usados para armazenar o valor do passo (Cc); caso não seja 
especificado, é assumido automaticamente o valor 1. Os três endereços finais da li- 
nha de abertura do loop armazenam detalhes sobre ele. Os dois primeiros armaze- 


nam o número da linha onde se encontra o comando FOR, e o terceiro armazena o 


número da declaração dentro de uma linha de programa, incrementado em um. 


Se os valores limite e inicial são inteiros entre -65535 e 65535 então são ar- 
mazenados como números inteiros, em vez de números de ponto flutuante, e são 
manipulados cerca de 20% mais rápido. 
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— A terceira ação executada pelo interpretador é muito especial. No TK 90X, 
não existe indicação de erro quando especificamos um passo com valor errado (ne- 
gativo em vez de positivo, por exemplo). Ele simplesmente ignora o próximo valor 
a ser assumido pela variável de controle. 


Por exemplo, no programa: 

10 FOR a= 1.6 TO 2.1 STEP-. 
20 PRINT a 

30 NEXT a 


E o micro executará o programa, só que não haverá impressão alguma na tela, 
mostrando o resultado. | 


— FORMAT “m”;y; “nome” 


Para ser usado com microdrive. 


Prepara para uso um cartucho novo, inserido no microdrive de número y, as- 
sociando o nome especificado a esse cartucho. 


— FORMAT "n"; 


— Atribui à estação (microcomputador trabalhando em rede local, até 64) o 
número x especificado. 


— FORMAT “t”; x 
— FORMAT “b”;x 


Seleciona a taxa de baud para a interface RS 232 especificada pelo valor x, 
que deve estar contido na faixa-padrão da taxa de baud (50, 110, 300, 600, 1200; 
2400, 4800, 9600, 19200). Outras taxas de baud, que não estejam na faixa-padrão, 
podem ser obtidas através da alteração de valores da variável do sistema BAUD (na 
versão standard do TK 90X, esta variável inexiste). 
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-— GO SUB n 


Este comando transfere a execução de um programa para a linha especificada. 


pelo número n, ou para a linha imediatamente posterior. 


Após a execução desta sub-rotina, o controle do programa retorna para a pri- 
meira declaração posterior ao GO SUB que o desviou. | 


Uma poderosa capacidade do Basic do TK 90X é a que permite aos GO SUB 
e GO TO executarem saltos, com valores provenientes de expressões aritméticas, 
o que não está disponível em muitas máquinas que possuam o comando ON x 
GOSUB, e ON x GOTO. - 


-- GO TOn 


No programa, significa que a próxima linha a ser interpretada é a linha de nú- 
mero n. 


O comando GO TO armazena sua linha de destino, nas variáveis de sistema 
INJMP e INSTNR, nos endereços 23618 e 23620, ou 5C42 e 5C44h. 


— Ex THEN y 


No sistema do TK 90X, a quantidade zero é considerada logicamente “falsa”, 
e qualquer outra quantidade é considerada “verdadeira”. Esta declaração IF x 
THEN y somente executará alternativa y quando a condição x for verdadeira. 


Estes comandos são muito poderosos, permitindo diversas combinações de 
operações lógicas e aritméticas, mas o programa abaixo mostra o uso de divisões 
repetitivas que levam quantidades numéricas a nunca assumirem um valor “falso”. 
O problema surge em decorrência do modo como o TK 90X trata números, ou 
quantidades 2 1 - 128 (2 elevado à potência - 128). 


Programa-demonstração de um caso especial de IF. . .THEN... 
10 LET a=1 

20 IF NOT a THEN PRINT à 

30 PRINT a 

40 LET a=a/2 

50 Go TO 20 

RUN 
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E a será impresso na tela, diversas vezes, até atingir O valor 2.9387359E-39, 
quando se repete. 


-— INK n 


Terceiro item de cores. Quando usado sozinho numa declaração Basic, tem o 
efeito permanente, mas quando utilizado dentro de declaração PRINT, por exem- 
plo, tem efeito provisório. 


O valor de n deve estar na faixa de O a 9. As oito principais cores do TK 90X 
possuem os códigos entre O e 7, inclusive, e são mostradas claramente no teclado. O 
uso de INK 8 demonstra que qualauer impressão a seguir será feita de modo a não 
alterar a tinta existente na posição da tela. O uso de INK 9, entretanto, é um 
pouco mais complicado, pois resulta numa tinta contrastante com o papel de 
fundo. Ou seja, se o papel é escuro, a tinta será branca, e se o papel for claro, a 
tinta será preta. Os papéis considerados escuros são o preto, o azul, o vermelho, e o 
magenta; os papéis claros são o verde, o cyan, o amarelo e o branco. A ação do co- 
mando INK permanente é: para n=0 a 7, seta os bits 0, 1 e 2 de ATCLR P conforme 
a cor; para n=8, seta os bits 0, 1 e 2 de MASKCLRP; e para n=9, seta o bit 5 de 
SEFLAG4. Se o comando INK é provisório, os bits das variáveis de sistema que cui- 
dam das cores provisórias são setados conforme a cor desejada, 


— INPUT n 


Este é um comando muito poderoso do TK 90X, pois permite ao usuário a 
inserção de mensagens entre aspas a serem impressas, simulando o comando PRINT. 
Estas mensagens, quando usadas com o comando INPUT LINE, devem vir obrigato- 
riamente antes da palavra LINE. 


O programa abaixo mostra o uso de diversos itens num mesmo INPUT: 


10 INPUT “Qual é o seu nome?”;a$ : CHR$ 13; “E qual é a sua idade?””; LI- 
NE b$: “E onde você mora?”; LINE c$ 


20 PRINT AT 2,5; “Nome:”; a$; CHR$ 13; “Idade:”; b$ 
30 PRINT AT 4,5; “Endereço Sc) 
Agora, experimente o seguinte programa, substituindo a linha 10 por: 


10 INPUT AT 5,0; “Qual é o seu nome?”; LINE a$; AT 3,8; “E a sua ida- 
de?”:; LINE b$; AT 7,15; “E onde você mora?”; LINE c& 


Veja que efeito interessante! 
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Experimente substituir os valores das linhas e colunas do comando INPUT 


AT, respeitando os números de linhas (de O a 21) e colunas (de O a 31) da tela, e ve-. 


rificará que se pode, em diversos programas, colocar as entradas diretamente na po- 
sição que serão impressas. 


— INVERSE n 


Outro comando de cores, agora o quarto. Mais uma vez, seus efeitos podem 
ser provisórios ou permanentes. 


Se é utilizado INVERSE 1, então a impressão se fará, conforme o nome diz, 
inversamente, ou seja, com a tinta da cor do papel, e o papel com a cor da tinta (in- 
verte as cores). Para anular esse efeito, usa-se INVERSE 0. - 


Quando se usa INVERSE 1, para efeito permanente, o que o TK 90X faz é 
setar o bit 5 de SFLAGA4, e seta o bit 4 daquela variável, quando se quer efeito pro- 
visório. 


— LET x=y 
Este é, sem dúvida alguma, o mais importante dos comandos Basic do TK 


90X. Uma variável é “inicializada” pelo usuário e o interpretador tem de determi- 
nar se a variável é simples, é série, é controle de lóop, ou parte de uma matriz. 


Todos os valores numéricos empregam cinco endereços para armazenar o seu 


conteúdo. Este valor é então manipulado como um número dé ponto flutuante ou . 


um inteiro. Séries de caracteres que tenham comprimento dinâmico, ou seja, O 
número de caracteres reservados para seu comprimento depende do instante do pro- 
grama, também tem endereços reservados de valores variáveis. Todas as matrizes de 
comprimento fixo e as cadeias de caracteres que sejam elementos de matrizes serão 
fatiadas, se o seu conteúdo for maior do que o comprimento especificado, e serão 


completadas com espaços em branco, se o séu comprimento for menor que o espe-” 


cificado. 


O programa-demonstração a seguir mostra a área de variáveis manipulando di- 
versos valores digitados a partir do teclado. - 


10 REM Entre com a sua variável 

20 LET m= PEEK 23627 + 256 * PEEK 23628 
30 PRINT m, PEEK m: LET mem +1 

40 GO TO 30 
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Algumas sugestões para a linha 10 acima: 
10 LET c=0 
10 LET c=15E3 
10 LET c$=“CCC” 
10 DIM (3): LET (1)= 7E7 
10 DIM c$(3): LET c8=“ABCDEFGHUKLM” 
10 DIM c$(2,10): LET c$(1)=“TK 90X” 


Veja, no seu manual, a correspondência de. caracteres e seus respectivos códi- 
3 , gs 
gos para entender todos esses números que apareceram na tela. . 


— LIST n 


Neste comando, se n=0, é assumido o valor da primeira linha existente do pro- 
grama em Basic, e não é necessário especificá-lo. Se a linha n existe, então o Ro é 
R . + , - a ' € 

colocado após seu número, indicando que ela passou a ser a linha corrente, a tim 


“ser editada. 


Digite qualquer programa no micro, a partir da linha 1, com linhas de 1 em Ô, 
Inclua uma linha qualquer, de número 20, e digite mais algumas linhas. Em segui- 
da dê LIST 49172, para ver o que acontece (é o mesmo que LIST 20). 


— LLIST n 


Este comando tem atividade semelhante a LIST n, só que desvia a listagem do 
programa para a impressora. Experimente colocar em seus programas LIST * 3 e 


LLIST % 2, para ver o que acontece. 


— LOAD 


No TK 90X. o comando LOAD possui diversos modos de utilização, a fim de 
permitir ao usuário carregar programas Basic, matrizes ou blocos de bytes. 


A informação, código ou programa armazenado numa fita cassete, é manipula- 
É | É s> E 
do em duas partes. A primeira parte é um “cabeçalho” de dezessete bytes e a segun 


da parte é um bloco de bytes. 
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O “cabeçalho” pode ser dividido em quatro partes, a saber: 


1- Um simples byte de informação, que vale O para programas Basic, 1 para 
matrizes numéricas, 2 para matrizes alfanuméricas e 3 para blocos de bytes. 


2- Os próximos dez bytes armazenam o nome do arquivo. Se o nome tiver 


mais do que dez caracteres, ele é rejeitado. 


3- Dois bytes seguintes são usados para informar o comprimento total do blo- 
co de bytes. No caso de programa Basic, apenas a área de programas e a área de va- 
riáveis são armazenadas na fita cassete. 


4- Dois outros bytes que armazenam, no caso de programa Basic, o número 
da linha de programa que será o seu início, e no caso de bloco de bytes, o endereço 
de início daqueles bytes. 


O bloco de bytes é simplesmente carregado na área de RAM requerida, de 
acordo com a informação do cabeçalho, 


— LPRINT 


Este comando desvia os dados de saída para a impressora. Para maiores deta- 
lhes, veja PRINT. 


e MERGE 


Este comando permite que um programa Basic e suas respectivas variáveis e 
informações sejam carregados na memória do micro, a partir de um gravador cassete 
ou um microdrive, cancelando apenas o que for coincidente em relação ao programa 
que já estava na memória, como, por exemplo, números de linhas de programa, no- 
mes de variáveis etc., fazendo então com que os dois programas “se misturem”. 


O modo de trabalhar da rotina da ROM do comando MERGE faz o programa, 
a ser carregado da fita cassete, ser tratado como um bloco de bytes e ser inicialmen- 
te armazenado na área de trabalho da memória, para, a seguir, ser comparado, linha 
por linha, com o programa existente, e então serem copiadas na área de programas 
“Basic as novas linhas e serem sobrepostas as coincidentes e as variáveis, de mesmo 


- nome. 
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— MOVE FONTE TO DESTINO 


Para uso com microdrive. 


Transfere dados de uma fonte qualquer de dados, fluxo ou canal, para a fonte 
destino. 


Em termos de microdrive, é um comando muito poderoso. 


— NEW 


Este comando faz uma reinicialização total do sistema, ou seja, apaga todo O 
conteúdo da memória e “zera” qualquer variável existente, exceto as variáveis de | 
sistema RAMTOP, MEMAVLB, BUZCCLE, KCLICK e UDGRAFH, não afetando 
caracteres gráficos definidos pelo usuário, visto que se encontram em área fora da 
área Basic. É o mesmo que RAND USR ó. 


— NEXT x 


Este comando pode ser considerado como o comando de fechamento de um 
loop aberto através de FOR x=... TO y.. . STEP.. .,e tudo que se encontra “den- 
tro” dessas duas linhas tenha o seu processamento epeddo y vezes. Pode-se dizer 
que o comando FOR não trabalha sem NEXT, e o comando NEXT não trabalha 
sem FOR. Para cada FOR de um programa, deve existir um NEXT. 


As fases envolvidas na execução do comando NEXT são as seguintes: 


t- A variável de controle é armazenada na área de variáveis da memória, e O 
valor do STEP é adicionado ao valor da variável de controle, não importando se é 
negativo ou positivo. 


2- Então o novo valor da variável de controle é comparado com o limite, e se 
este novo valor o ultrapassar, então o comando NEXT estará terminado. 


— OPEN & 


Para uso com microdrive, entretanto, é possível “abrir” ou “fechar” (OPEN- 
CLOSE) fluxos num micro standard, sem periféricos, da seguinte maneira: 


— Experimente a linha PRINT % 5 “Será que funciona?”, e certamente não 
funcionará, a menos que o fluxo seja aberto com a linha OPEN 5, “S”, direcio- 
nando o fluxo 5 ao canal S (de screen). A linha CLOSE * 5 fechará o fluxo. 
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Experimente digitar o programa a seguir, que mostra entradas sendo aceitas 
a partir do teclado e sendo passadas para à tela. 


10 OPEN &5, “k” 
20 INPUT *5;as 
30 OPEN £5, ““s” 
40 PRINT %5;a8$ 


— OUT f,g 
Este comando permite que o usuário envie sinais às portas de saída do TK 


90X, a partir do Basic. 


No comando BORDER, já visto, foi mostrado que a porta 254 controla a cor 
da borda, para valores entre 0 e 7. 


Entretanto, essa mesma porta 254 pode ser empregada para controlar a saída 
de som através do alto-falante da televisão. O programa mostra também uma estima- 
tiva do tempo que o TK 90X leva para executar uma instrução. Se esta for rápida, o 
som equivalerá a uma nota alta, e, se ela for mais lenta, o som equivalerá a uma nota 
mais baixa. 


— Programa de controle do alto-falante da televisão 
10 OUT 254, 23 


20 REM Nesta linha pode-se colocar instruções das mais variadas, como, por 
exemplo PRINT;: ou RAND ou LET t=0 ou PAUSE 1 ou PAUSE 5 etc. 


30 OUT 254,7 
40 GO TO 10 ou RUN 


Nesse programa, o comando OUT 254,23 desliga o som, enquanto o comando 
OUT 254,7 liga o som. A operação é repetida muito rapidamente para produzir o 
som do alto-falante da tevê. 


Quando houverem diversos periféricos no mercado, este será um comando 
muito utilizado. 
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— OVER x 


Mais um comando de impressão de cores (o quinto). Mais uma vez, seus efei- 
tos podem ser provisórios ou permanentes. Se foi especificado OVER 1, então a im- 
pressão que segue será resultado da operação binária XOR com a impressão existente 
na área do caractere que está sendo processado. 


O resultado da operação binária XOR será 1 (um) quando somente um dos 
bits envolvidos for um, caso contrário, será zero. 


Isto quer dizer que se um caractere qualquer for Apre duas vezes com 
OVER 1, ele desaparecerá. 


Com OVER 0, todos os bits de uma dada área de caractere envolvida serão 
plotados. 


— PAPER x 


Último item de impressão de cores. Mais uma vez, seu efeito pode ser tempo- 
rário ou permanente. 


Como INK, o comando PAPER pode ser usado com x variando de O a 9. Para 
se utilizar as cores normais do TK 90X, utiliza-se x na faixa de O a 7. Com x=8, em- 
prega-se o modo transparente, ou seja, não se altera a cor do papel já existente na 
tela. | 


| 

O uso de PAPER 9 é muito útil, pois nos permite utilizar o papel sob forma 
contrastante, ou seja, se a tinta com a qual se está escrevendo for escura, o papel a 
ser utilizado será branco, e vice-versa. 


A ação do comando PAPER, usado no modo permanente, seta os bits 3,4 e 5 
da variável de sistema ATCLR P, conforme a cor especificada (com x de O a 7); com 
x=8, seta os bits 3, 4 e 5 de MASKCLRP; e com x=9 seta o bit 7 de SFLAGA4. 


—- PAUSE s 


Este comando aplica ao Z 80 a instrução em linguagem de máquina HALT, 
por s interrupções. O único trabalho que é realizado durante PAUSE é a manípu- 
lação da rotina da ROM que lê o teclado para saber se alguma tecla foi pressionada, 
interrompendo a pausa. 


O resultado da divisão de s/60 fornece o tempo da pausa em segundos. | 
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-— PLOT x,y 


Na tela do TK 90X existem 256 x 192 pixéis, cada um deles controlado indi- 
vidualmente pelo comando PLOT. No modo normal de operação, o comando PLOT 
vai setar o bit correspondente àquele pixel, no arquivo de imagem. O comando tam- 
bém faz o armazenamento das coordenadas do último pixel plotado nas variáveis de 
sistema LSTPLOT e COORDS, nos endereços 23677 e 23678. 


Qualquer comando de cor do TK 90X pode ser utilizado dentro de uma decla- 
ração PLOT, e o emprego de PLOT OVER 1 significa, em equivalência ao TK 85,0 
comando UNPLOT, que apaga o ponto setado. Com o uso de PLOT INVERSE 1, si- 
mulamos um comando que “não plota”, porque inverte as cores da tinta e do papel. 
O comando PLOT transfere a cor permanente para toda a área do caractere envolvi- 
do, mas não afeta nenhum outro comando de cor, a menos que ele esteja especifi- 
cado, isto é, PAPER 8; FLASH 8; BRIGHT 8. 


— POKE end, b 


Este comando permite que o usuário armazene, diretamente nos endereços da 
memória RAM do TK 90X, seus valores especificados. A faixa aceitável de endere- 
camento começa com O e termina em 65535 (p/48K de RAM) valendo a ressalva que 
os endereços entre O e 16383, pertencentes à memória ROM (memória apenas de 
leitura), aceitem os valores a ser introduzidos nos endereços (não transmitem men- 


sagem de erro), mas não os escrevem nesses endereços — simplesmente despreza-os. 


A faixa aceitável para os valores de b, conforme no capítulo anterior, é de valores 
de bytes, ou seja, de O a 255. Quando são valores negativos, na faixa de -255 a -1,a 
eles é adicionado o valor 256, para convertê-los em positivos. 


- PRINT... 


Este comando permite ao usuário diversas “formatações de dados de saída”, 
na tela do TK 90X. | 


As mensagens ou os símbolos a serem impressos são separados do anterior por 
“delimitadores”, que determinam onde e se devem ou não ser impressos. 


O delimitador “;” (ponto e vírgula) significa que o próximo item a ser impres- 
so deverá vir imediatamente após o existente, sem espaços intermediários. 


O delimitador “,” (vírgula) significa tabular até a próxima metade da linha 
que está sendo impressa na tevê, ou seja, divide a tela horizontalmente em duas me- 
tades iguais. 
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O delimitador “i” (apóstrofo) significa pular uma linha, começando uma im- 
pressão no início da próxima linha. 


A posição de impressão também pode ser “formatada” através do uso de 
TABye ATx,y. 


Os itens a serem impressos também podem ser coloridos, tanto provisória 
quanto permanentemente, através dos comandos de cor, ou através de acesso direto 
às cores desejadas. 


Note que todos os comandos de cores, bem como os delimitadores e controla- 
dores de posição de impressão, também podem ser utilizados através dos seus códi- 
gos apropriados (CHR$. . .), o que pode ser muito útil. 


— RANDOMIZE x 


Este comando inicializa o valor armazenado na variável de sistema INITRND, 
nos endereços 23670 e 23671, ou 5076 e 5C77. 


“Se x não é especificado, o valor de INITRND é tomado dos dois bytes menos 
significativos da variável de sistema TVCOUNT, nos endereços 23672, 23673 e 
23674. Se foi declarado um valor para x, este número é copiado em INITRND. 


— READ x1, x2,x3,... 


Este comando, usado conjuntamente com uma listagem de dados em uma de- 
claração DATA, pode ser considerado como sendo uma série de comandos LET, já 
que faz a atribuição aos nomes das variáveis contidas na linha READ, com os seus 
respectivos valores contidos na linha DATA. 


O número de valores de uma linha DATA deve obrigatoriamente ser igual ao 
número de nomes de variáveis contidos em uma linha READ, pois se assim não for 
ocorrerá o surgimento de uma mensagem de erro. 


— REM... (DO INGLÊS REMARKS, OU OBSERVAÇÕES) 


Este é um comando muito útil para o usuário, e não tem efeito algum sobre o 
processamento do programa em Basic. Note que, em uma linha que inicie com o co- 
mando REM, se houver qualquer outro comando após o REM, separado por dois 
pontos, ele não será processado, sendo considerado, pelo interpretador Basic, como 
declaração REM. 
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— RESTORE x 


Este comando é usado em conjunto com uma listagem de um comando DA- 
TA, ou mais. Se X = 0, então o apontador da variável de sistema ENDDATA, de en- 
dereços 23639 e 23640, ou 5C57 e 5C58h, é direcionado para apontar em direção 
ao endereço após a área de programa. Se foi especificado um valor para x, então 
ENDDATA é ajustado para apontar para o endereço depois do início daquela linha, 
se existir, ou a primeira linha posterior àquela. Se x exceder o valor 9999, que é O 
último valor válido para números de linhas de programa, então a variável de sistema 
ENDDATA apontará para o último endereço da área de programas da memória 
RAM. 


— RETURN 


Este comando procura a última entrada na pilha do GOSUB. Se essa entrada 
for um número válido de declaração, então o interpretador Basic executará a próxi- 
ma declaração. Se a entrada não for válida, então surgirá a mensagem de erro ade- 
quada. 


—-— RUN x 


Este importante comando em Basic permite que o usuário execute seus pro- 
gramas. Se não foi especificado um valor para x, então significa que o usuário quer 
que o interpretador procure, na área de programas Basic da memória, uma linha 
com aquele número, ou a primeira linha após aquele número, caso não exista a linha 
x, para então interpretá-la. 


O comando RUN faz a inicialização de todas as variáveis existentes na memó- 
ria, ou seja, ele é equivalente ao comando CLEAR acrescido do comando GOTO 
primeira linha. 

— SAVE 

Este comando está muito bem explicado no capítulo 23 do manual do TK 

-90X. Para outros detalhes, veja neste capítulo o comando LOAD. 


-— SOUND x,y 


Este comando emite uma nota musical através do alto-falante da televisão. O 
valor x é a duração em segundos, e o valor y é o tom da nota, em função da nota 
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DO central, na faixa de valores entre - 60 e + 69,8. Tanto x quanto y podem ser ex- 
pressões numéricas. 


Note que enquanto o comando SOUND estiver ativado, ele não permite inter- 
rupções (BREAK) através de Basic, porque sua rotina de comandos na ROM não 
checa se a tecla BREAK foi pressionada. Após a sua execução, pode-se dar um 
BREAK. 


Experimente o seguinte programa, para testar tempo e tom das notas musicais 
emitidas pelo TK 90X: 


IO LET a=- 60 

20 SOUD RND + .05,a 
30 LETa=a+] 

40 PRINT a, 

50 GOTO 20 


Veja que, quando a atingiu o valor 70, o computador emitiu a mensagem de 
erro. | 


Acrescente as linhas | 


15 POKE 23692,255 e 
45 IF a = 69 THEN RUN 


— STOP 


Sempre que este comando for interpretado, surgirá a mensagem de erro “9 
STOP executado”. O uso do comando CONT, em modo direto, permite a exetução 
do programa a partir do comando imediatamente após o comando STOP. 


Assim como uma situação de erro, o efeito do erro “STOP” é o de transferir 
o número do erro para a variável de sistema ERRCD de endereço 23610, ou 5C3Ah. 
O número do erro é sempre um a menos que o código do erro que aparece antes da 
mensagem de erro. | 


Uma vez ocorrido um erro, o interpretador interrompe a execução da rotina 
do programa e salta para a rotina de manipulação de erros. Então, o número do erro 
é transferido para a variável de sistema ERRCD e o endereço de retorno ao modo 
imediato, localizado em 4867, ou 1303h, é coletado. Este endereço de retorno está 
sempre presente durante a interpretação de um programa, nos dois endereços 
abaixo da pilha do GOSUB. Este endereço está sempre apontado pela variável de 
sistema P ERR, de endereços 23613 e 23614, ou 5C3D e 563Eh. 
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— TRACE (1 OU 0) 


Comando de saída, que, quando acionado (TRACE 1), mostra o número da li- 
nha de programa Basic que está sendo executada, após o sinal de *. 


Para cessar o comando, usa-se ou TRACE O ou TRACE. 


Infelizmente, na minha opinião, o campo de saída do comando é a própria te- 
la, não havendo preocupação dos projetistas em não atrapalhar a saída de dados do 
programa, abrindo, por exemplo, quando do acionamento do comando, uma janela 
na parte inferior do vídeo. (Existe uma variável de sistema que armazena o número 
da linha de programa que está sendo processada). 


— VERIFY 


A presença deste comando em Basic do TK 90X é muito tranquilizadora para 
o usuário, pois permite que qualquer programa gravado numa fita cassete, ou num 
microdrive, seja comparado com o conteúdo da memória, acusando, através de uma 
mensagem de erro, se o conteúdo da fita está diferente do conteúdo da memória. 


AS FUNÇÕES BASIC 
— ABS 

Esta função converte todos os números negativos em positivos e não altera os 
números positivos. 


— ACS 


Retorna o arco do co-seno do ângulo em questão, em radianos. 


— AND 


Esta função é, na realidade, uma operação binária que requer dois operandos. 
Se os dois operandos são logicamente verdadeiros, então a operação é executada. 
Entretanto, se um dos operandos for logicamente falso, a operação deixa de ser exe- 
cutada. Uma expressão numérica “falsa”, equivalerá, para a operação binária, ao va- 
lor O, e uma cadeia de caracteres também “falsa”, terá comprimento zero e conteú- 
do nulo. Quando o resultado é verdadeiro, o primeiro operando é o que é mostrado 
ao usuário. | 
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— ASN 


Retorna o arco do seno do ângulo em questão, em radianos. 


— ATN 


Retorna o arco da tangente do ângulo em questão, em radianos. 


— ATTR 


Esta função tem a forma ATTR (linha, coluna). Retornã ao usuário o valor ar- 
mazenado no byte do arquivo de atributos daquela respectiva posição. A função é 
equivalente a: 


PEEK (22528 + linha + 32 + coluna) 
O valor do atributo pode ser considerado como sendo: 


INK + PAPER « 8 + BRIGHT + FLASH « 128 


-— BIN 


Esta é uma função muito interessante, pois permite que qualquer número in- 
teiro decimal entre O e 65535 seja digitado em sua forma binária. Qualquer número 
que possua até 16 dígitos binários é permitido. 


O programa a seguir mostrará, a partir de números binários, decimais de O 
a 10. 


10 FOR a =BIN 1 TO BIN 1010 STEP 00000001 
20 PRINT a 
30 NEXT a 


Note apenas que os números binários não são impressos em comandos de 
saída, a menos que se use uma rotina em Basic que o faça. 


— CHR$ 


Esta função retorna ao usuário o caractere correspondente a um determinado 
código. 
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ease pr mat mr et ro e et a re 


O programa a seguir mostra a impressão desses caracteres. Os comandos CONT 
ou NEXT a, deverão ser utilizados diversas vezes, para não interromperem o loop de 
saída, quando for impressa a mensagem de erro referente aos códigos de cor.' 


10 FOR a=0 TO 255 
20 PRINT a; TAB 8; CHR$ a 
30 NEXT a 


— CODE 


Esta função retorna ao usuário o código relativo ao primeiro caractere da res- 
pectiva série de caracteres, correspondendo ao inverso da função anterior. Se a 
série de caracteres for nula, o código será zero. 


— COS 


Retorna o co-seno do ângulo em questão, em radianos. 


-— EXP 


Para um dado argumento x, a função retorna o valor “e elevado à potência 
x”, onde e vale 2,7182818... 


— EN 


No TK 90X podem existir até 26 funções numéricas e até 26 funções alfanu- 
méricas definidas pelo usuário. A função Basic “FNº deve vir seguida de uma sim- 
ples letra, para funções numéricas, ou de simples letras seguidas do símbolo “$”, 
para funções alfanuméricas, e o argumento requerido pela função deve vir entre 
parênteses. 


-— IN endereço, byte 


O argumento desta função é usado como código de endereçamento de uma 
porta de entrada, e o valor resultante deverá estar na faixa de O a 255. Se uma porta 
não estiver sendo usada, o valor nela será 255. 
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— INKEYS$ 


Esta função permite que o teclado do TK 90X seja lido sem que se faça uso 
do comando INPUT. Se uma simples tecla é pressionada, então é criada uma série 
de caracteres de comprimento um, cujo conteúdo é aquela tecla pressionada. 


— INT 


Retorna ao usuário a parte inteira de um número decimal, ou seja, arredonda 
aquele número para baixo. Números negativos são primeiramente truncados, para 
então se subtrair 1 dele e em seguida o resultado ser arredondado. 


Portanto, + 4.66 resultará em +4, enquanto -5.66 será truncado para -5, ou 
arredondado para -6. 


— LEN 


Esta função calcula o comprimento, em número de caracteres de uma dada 
série de caracteres. Uma série nula terá comprimento zero. 


Entretanto é bom salientar que as cores, tanto de papel, quanto de tinta, bem 
como os atributos obtidos diretamente, via teclado, serão considerados para efeito 
de comprimento de séries, e cada inclusão dessa consumirá dois caracteres de com- 
primento. | 


— LN 


Retorna o logaritmo da base e, do argumento dado. 


— NOT 


Esta é uma função muito interessante por ser a única que fornece o “estado 
lógico” de um valor no sistema do TK 90X. Entretanto é importante notar que o 
resultado é invertido e que o verdadeiro resultado lógico é dado pela operação ló- 
gica “NOT NOT x”. 


Isto é, para x=2, um valor “verdadeiro” 
NOT x será O, que é “falso”. 


NOT NOT x será 1, que é a resposta correta e “verdadeira”. 
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CS 


— OR 


Esta é uma operação binária que requer dois operandos. Se um dos dois ope- 
randos for logicamente verdadeiro, então a operação será efetuada. Entretanto, se 
nenhum dos dois operandos for verdadeiro, então a operação será logicamente falsa. 
Um resultado verdadeiro terá o valor 1 se o segundo operando for zero € terá O va- 
lor do primeiro operando se o segundo operando não for zero. 


— PEEK 


Esta função retorna o valor encontrado no endereço especificado da memória. 
O resultado será sempre um inteiro entre O e 255, inclusive. 


— PI 


Uma função muito particular do TK 90X. A representação em ponto flutuan- 
te de PI/2 é armazenada como uma constante na “tabela de constantes da ROM”. 
Este valor é de lá coletado, duplicado e colocado à disposição do usuário. 


O valor de PI é aproximadamente 3.141592653.... 


— POINT 


Esta função tem a forma POINT (x plot, y plot), e retorna o valor 1 se O pixel 
daquela posição estiver impresso na tela, e o valor O, se não estiver impresso. 


— RND 


No TK 90X, os números “aleatórios” são gerados por um pseudogerador de 
números aleatórios. A variável de sistema INITRND, de endereços 23670 e 23671, 
ou 5C76 e 5C77h, é coletada, modificada e reinicializada a cada chamada da função 
RND. O número aleatório gerado para o usuário é o novo valor de INITRND divi- 
dido por 65536. 


O valor de INITRND é zerado após cada inicialização do TK 90X. Entretanto, 
existe uma sequência de números entre os valores inteiros de O a 65535. Nenhum 
valor será repetido até que tenham sido usados 65535 números. 


Os dois exemplos Basic a seguir mostram estas ações. 
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1- A natureza de RND 
10 PRINT RND: FOR a=1 TO 65535: POKE 0, RND: NEXT a: PRINT RND 


Este pequeno programa leva cerca de vinte minutos para ser executado, mas 
mostra que o mesmo número RND é gerado após 65535 chamadas. O comando in- 
termediário POKE é apenas uma sugestão. 


2- A modificação de INITRND 

10 POKE 23670,0: POKE 23671,0 

20 LET INTT=0 

30 LET INIT=INIT + 1 

40 LET INIT=INITx75 

50 LET INIT=INIT-INT (INIT/65537) x 65537 
60 LET INIT=INIT-1 

70 PRINT INIT/65536, RND 


A linha 10 zera a variável de sistema INITRND. O programa mostra que o 
mesmo resultado é produzido através das modificações das linhas 30 a 60, ou pela 
chamada de RND. 


— SCREENS 


Função muito interessante do TK 90X, que foi pouco explorada no mânual. 


A forma desta função é SCREENS$ (linha, coluna), que retorna ao usuário 
uma série contendo o caractere da posição especificada. A função reconhece os có- 


“digos de caracteres da faixa 32 a 127, tanto normais ou invertidos. 


É possível, no entanto, fazer SCREENS$ reconhecer caracteres gráficos defini- 
dos pelo usuário. Basta alterar a variável de sistema PTBLCHR, nos endereços 
23606 e 23607, ou 5C36 e 5C37h, tornando o endereço apontador dos caracteres, 
para efeito de reconhecimento de SCREENS, o primeiro da área de caracteres grá- 
ficos. | 


Em outros termos, você faz POKE 23606, 88 e POKE 23607, 254. Com estes 
dois comandos a tabela de caracteres foi desviada para a área de caracteres gráficos, 
e SCREENS$ vai reconhecer o seu caractere gráfico, através, por exemplo, do co- 
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ta a rar rr tam rr erre e e 


mando IF SCREENS$ (linha, coluna) = CHR$ 32 THEN. . . (obrigatoriamente 
usa-se CHR$ 32, que é, na tabela de código do Apêndice D do manual, o espaço em 
branco). Para retornar aos caracteres normais de impressão, usa-se POKE 23606,0 e 


POKE 23607,60. 


Esta função trabalha comparando o conteúdo dos oito bytes do caractere es- 
pecificado com os oito bytes que representam um caractere, armazenados no gera- 
dor de caracteres, da memória ROM, que começam no endereço 15360. 


Apesar da quantidade de trabalho envolvida pelo hardware da máquina, esta 
função é surpreendentemente rápida. Isto pode ser demonstrado pelo programa: 


10 PRINT “&”; SCREENS (0,0) 


que aparece quase instantaneamente. 


— SGN 


Esta função retorna o sinal do número em questão, ou seja, retorna “+41” para 
todos os números positivos e “-1” para todos os números negativos. 


— SIN 


Retorna o seno do ângulo em questão, em radianos. 


— SOR 


Esta função mostra ao usuário a raiz quadrada do número especificado, desde 
que esse número seja positivo. 


O TK 90X calcula a raiz quadrada de um número elevando-o a 0.5. 


— STR$ 
Esta função converte uma variável numérica em variável alfanumérica. 
— TAN 


Retorna a tangente do ângulo em questão, em radianos. 
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Esta tangente é encontrada, a partir do seno e do co-seno daquele ângulo, que 
são calculados separadamente, e então divididos. O tempo de execução desta função 
é; portanto, o dobro do gasto pela função seno ou pela função co-seno, 


— USR 


No TK 90X a palavra-chave USR seguida de uma expressão numérica é dife- 
rente da forma USR seguida de uma série. 


— USR número 


Esta função, desta forma, é muito importante para aqueles que desejam utili- 
zar linguagem de máquina no TK 90X, Ela serve para “chamar” rotinas em lingua- 
gem de máquina criadas pelo usuário, ou mesmo rotinas da ROM, a partir do númê- 
ro especificado, que deve ser o primeiro endereço da rotina que será executada, 


“No caso de rotina em linguagem de máquina criada pelo usuário, o Z 80 inter- 
rompe a execução do programa monitor armazenado na ROM do TK 90X, e imedia- 
tamente inicia a execução da rotina chamada a partir do endereço especificado, 


- USR string 


A função USR retorna o endereço da memória RAM correspondente ao caraç- 
tere gráfico definido pelo usuário. | 


O argumento de USR string deve ser uma série de um caractere, que deve es- 
tar entre AeU,ouaeu. | | É 


No TK 90X standard, com 16K de memória, a área de caracteres gráficos defi- 
nidos pelo usuário começa em 32600, ou 7F58h, | 


Na versão de 48K de RAM, esta área começa em 65368, mas estas áreas po- 
dem perfeitamente começar em outros endereços, alterando-se o endereço apontado 
pela variável de sistema UDGRAPH, armazenada nos endereços 23675 e 23676 ú 
5C7B e 5€7Ch. REAGDAS fodido ep 
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mm 


Digite em modo direto: 
PRINT USR “a”, e terá como resposta 65368 
Digite em modo direto: 


- PRINT PEEK 23675 + 256 + PEEK 23676, e a resposta também será 65368, 
que é então o primeiro endereço do caractere gráfico correspondente à letra A. 


Agora digite: 
PRINT PEEK 23675 e PRINT PEEK 23676 separadamente 


E dê POKE nesses endereços, para mudar O endereço inicial da área de carac- 
teres gráficos. | 


Digite novamente a frase PRINT PEEK 23675 + 256x PEEK 23676 para sa- 
ber o novo endereço inicial da área de gráficos, o que significa digitar PRINT USR 
Fa 

Agora experimente rodar o seguinte programa, em modo direto, consideran- 


do-se o endereço inicial da área de gráficos como sendo END. 


FOR f= END TO END + 8:POKE END, RND* 255:NEXT fe entrando em 
modo gráfico (cursor G), veja o que aconteceu com a tecla A. 


Percebeu? Você ainda acha que o TK 90X pode criar apenas 21 caracteres grá- 
ficos? O tamanho da área de caracteres gráficos definidos pelo usuário é variável, de- 
pendendo apenas de quantos caracteres se queira criar para aquele programa. Não 
esqueça de dar os POKES respectivos para mudar O endereço inicial da área de ca- 
racteres, bem como os POKES necessários para se retornar ao tamanho padrão. Se 
quiser, por exemplo, armazenar 42, em vez dos 21 caracteres iniciais, você terá de 
aumentar a área de caracteres gráficos em 21x8, ou seja 168 endereços. Em 48K de 
RAM, o endereço inicial é 65368. Portanto, se precisamos de mais 168 endereços, 
devemos mudar O início para 65368-168, ou seja, para 65200. Se dividirmos 65200 
por 256, obteremos 254,6875, ou seja, 254 e alguns quebrados. Multiplique 254 
por 256, € O resultado será 65024. Mas 65200 - 65024 = 176. Então, para uma área 
de 48 caracteres gráficos definidos pelo usuário, precisamos fazer dois POKEs: um, 
POKE 23675, 176 e outro POKE 23676, 254. Digite agora, em modo imediato, 
PRINT USR “a”, e repita então o programinha em modo imediato, mostrado aci- 
ma. Entre em modo gráfico e pressione “a”. Retorne ao tamanho inicial da área de 
gráficos, e repita o programa, seguindo O procedimento normal. 


Nota: o comando NEW não afeta essa área de caracteres gráficos. 


Entendeu o procedimento? Treine bastate, pois isto é muito interessante. 
Lembre-se que a área de gráficos só retorna ao seu comprimento padrão, através dos 
"* respectivos POKEs, ou então se desligar o TK 90X. 
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DO eo OO 


Acostume-se a utilizar um papel quadriculado à parte para desenhar os seus 
caracteres gráficos, se não quiser utilizar UDG 2, para facilitar a conversão em valo- 
res decimais ou em valores binários, através de BIN. 


— VAL 


Esta função requer uma série como argumento, cujo conteúdo deve ser numé- 
rico. Ela então converte em valor numérico a série dada. 


É uma função muito útil no sentido de economizar memória, visto que um 
número qualquer para ser armazenado na memória RAM do TK 90X requer 5 by- 
tes. Utiliza-se esta função em séries, e não os números diretos, como por exemplo, 
em vez de se usar GOTO 900 emprega-se GOTO VAL “900”. 


— VAL$ 


Esta função requer uma série entre aspas como argumento e retorna ao usuá- 
rio a série original. 


Experimente digitar o programa: 

10 LET a$= 123” 

20 PRINT VAL a$ 

30 PRINT VALS$ “a$” 

40 PRINT VAL$ “a$” + STR$ (VAL a$) 


E assim nós encerramos as explicações de todos os comandos e todas as fun- 
ções disponíveis na linguagem Basic do TK 90X. Agora, veremos um pouco os ca- 
racteres de controle. 


CARACTERES DE CONTROLE 


No TK 90X existem 12 caracteres de controle que podem ser utilizados pelo 
usuário. 


— CHR$ 6 - vírgula 


Equivalente a PRINT, que faz a próxima posição de impressão saltar meia 
tela, verticalmente. 
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— CHR$ 8 - caractere à esquerda 


A posição de impressão é modificada, no sentido de “retornar” um caractere 


à esquerda (tecla de backspace em máquinas de escrever). 


Um uso útil e particular que se pode obter com este caractere é o de sublinhar 
certas letras ou palavras, por exemplo: 


10 PRINT “TK 90X”; CHR$ 8; CHR$ 8; CHR$ 8; CHR$ 8; CHRS$ 8; 
CHR$ 8; OVER 1;“ ” 





Para cada caractere que se quer sublinhar deve haver um CHR$ 8. 


Outra utilização é a acentuação de palavras em português, que pode até ser 
mais fácil do que se usássemos UDG 0... 


— CHR$9 - caractere à direita 


Inversamente ao anterior, este caractere de controle pula uma posição para a 


direita. 


— CHR$ 13- ENTER 


A posição corrente de impressão é alterada para ser impressa no início da 


próxima linha. Equivale a se usar “ * * apóso comando PRINT, ou mesmo a outro 
PRINT, numa mesma linha de programa, 


— CHR$ 16 até 21 - comando de cores 


Estes caracteres de controle produzem cores provisórias. Eles são, respectiva- 
mente, INK, PAPER, FLASH, BRIGHT, INVERSE e OVER. 


Por exemplo: 


10 PRINT CHR$ 16; CHR$ 3; CHR$ 18; CHR$ 1; CHR$ 21; CHR$ 1; 
“TK 90”: CHR$ 19; CHR$ 1; CHR$ 17; CHR$ 1; “TK 90” 
— CHR$ 22- AT 


Tabulação da posição de impressão, a partir dos dois próximos números após 
CHRS$ 22. O primeiro número refere-se às linhas e o segundo, às colunas. 
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Por exemplo: 
PRINT AT 12,6; “TK 90X” é idêntico a 
PRINT CHR$ 22; CHR$ 12; CHR$ 6; “TK 90X” 


— CHR$ 23: TAB 


A posição de impressão é modificada, no sentido de ser impressa na coluna es- 
pecificada pelos dois caracteres que seguem o CHR$ 23. Experimente o programa: 


10 LET a=1: POKE 23692,255 


20 PRINT PAPER 7; CHR$ 23; CHR$ (RND «+ 5); CHR$ 0; PAPER RND 
* 6.5; CHR$ 23; CHR$ (RND + 25 + 5); CHR$ 0;a 


30LETa=a+1:GOTO 20 


Capítulo III 





VARIÁVEIS QUE CONTROLAM O SISTEMA 


Os bytes na memória, do endereço 23552 até o endereço 237/33, são reserva- 
dos para uso específico do sistema. Pode-se ver o conteúdo de qualquer desses ende- 
reços, e, convém até anotar esses valores, pois podem ser úteis mais tarde. Para ver 
esses conteúdos, digite: | 


PRINT PEEK endereço 

E você também pode mudar esses valores iniciais, sem perigo algum de alterar 
o hardware standard da máquina. É somente praticando, e “fuçando”, que se desco- 
bre como ocorrem as coisas dentro dessa pequena maravilha. O máximo que pode 
acontecer, quando se altera uma variável de sistema, é um “crash”, e o passo seguin- 
te nesse caso é desligar a máquina e tornar a ligá-la. Os nomes dessas variáveis não 
têm nada a ver com a linguagem Basic, e O computador não as reconhece pelo nome 
(felizmente. . .). Você pode usar em seus programas nomes semelhantes de variáveis 
— o computador não vai confundir a sua variável com uma variável de sistema. 


As abreviações utilizadas na coluna 1 da tabela a seguir têm o seguinte signi- 
ficado: 


x — alterando o valor inicial da variável, provavelmente ocorrerá um “crash” 
no sistema. 


n — não haverá efeito algum, alterando o valor inicial. 
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DO E AU O E 


O número da coluna 1 é o número de bytes daquela variável. Para dois bytes, 
o primeiro é o menos significativo — o contrário do que normalmente se espera. 
Portanto, para se dar um POKE de um valor v numa variável de sistema de dois by- 
tes, de endereço n, use 


POKE n, v-256 * INT (v/256) 

POKE n + 1, INT (v/256) 

E, para ver o valor, use a expressão: 
PRINT PEEK n + 256 * PEEK (n + 1) 


Se quiser alterar algum endereço n, como no caso de aumentar a área de ca- 
racteres gráficos definidos pelo usuário, visto no capítulo anterior, você deve efe- 
tuar alguns cálculos: 


Chamemos de bms, o byte menos significativo e 

BMS, o byte mais significativo 

VARSIST — a variável de sistema que se queira alterar. Os cálculos são: 
BMS = INT (n/256) 

bms = n - BMS * 256 

E, a seguir: 

POKE VARSIST, bms 

POKE VARSIST + 1, BMS 


VARIÁVEIS DO SISTEMA — TABELA DE DADOS 


Nota Endereço Nome Conteúdo 


n8  23552/5C00 KBDWORK Esta variável consiste em 8 bytes, cada 
| um deles contendo informação sobre a 
tecla pressionada, ou o período de repe- 

tição o código em modo “extended” etc. 

ni  23560/5C08 KEYPRS Esta variável contém sempre o código da 


última tecla pressionada, tendo em conta 
o modo. Só é alterada quando se aperta 
outra tecla. A repetição automática afeta 
a variável. Passando-se a zero, pode-se 
verificar se foi pressionada alguma tecla. 
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Nota Endereço 


l 


n2 


nl 


n2 


x38 


23561/5C09 


23562/5C0A 


23563/5COB 


23565/5COD 


23566/5C0OE 


23568/5C10 


23606/5C36 


Nome 


RPTDLAY 


RPTCCLE 


PT DEF 


K CLR 


TVCLR 


PSTRM 


PTBLCHR 


Conteúdo 


Tempo, em 60 ciclos por segundo, duran-: 
te o qual é necessário pressionar uma te-. 
cla para acionar o auto-repeat (repetição. 
automática). Possui o valor inicial 35, po- 


dendo ser alterado para mais ou para me- 


nos. (Cuidado com valores muitos baixos 


— a repetição é muito rápida...) 


Atraso, em 60 ciclos por segundo, entre 
as sucessivas repetições de uma tecla. Ini- 
cialmente contém o valor 5. Pode-se dimi- 
nuir para o mínimo de 1, a fim de tornar 
mais rápida a repetição. 


Endereço dos argumentos das funções de- 
finidas pelo usuário. Valor inicial 0. 


Quando é escrito diretamente no teclado 
um código de comando, o segundo byte, 
ou seja, a cor e o uso ou não de FLASH, 
é guardado aqui, enquanto o código de 
INK, PAPER, FLASH ou INVERSE é im- 
presso. Depois disso, a ROM consulta este 
byte para impressão a seguir do código de 
comando. 


Esta variável é usada pela rotina de im- 
pressão, para guardar AT, TAB e os co- 
mandos de cor dirigidos para a tela. 


Esta variável é usada para guardar os des- 
locamentos de CHCADD. Para um total 
de 19 arquivos, sendo 16 do usuário e 3 
da máquina, existe um deslocamento. 
Quando este é somado a CHCADD, apon- 
ta para um endereço que constitui o iní- 
cio da rotina de tratamento desse arquivo. 


Indica o endereço do conjunto de caracte- 
res, menos 256 (incluindo no conjunto 


todos os caracteres de código entre 32 e 


127, padrão ASCID. A variável contém 
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memo marreta etnia eee mm 


Nota Endereço 


xl 


x1 


x2 


n2 


23608/5C38 


23609/5C39' 


23610/5C3A 


23611/5C3B 


23612/5C3C 


23613/5C3D 


23615/5C3F 


Nome 


BUZCCLE 


KCLICK 


ERRCD 


SFLAG O 


SFLAG 1 


P ERR 


PLIST 


Conteúdo 


normalmente o endereço 15360 ou 4€00 
(conjunto de caracteres da ROM), mas es- 
te valor pode ser alterado, levando-a a 
apontar para um novo conjunto de carac- 
teres definido pelo usuário. 


Som produzido pelo computador quando 
uma linha de programa em edição ultra- 
passa o comprimento de 23 linhas da tela 
(tela cheia). Para alterar este comprimen- 
to, modifique o conteúdo desta variável, 
inicialmente em 64. 


Duração do som produzido ao se pressio- 
nar uma tecla. Pode-se aumentar seu valor 
inicial, a fim de se tornar mais “simpáti- 
co” o som produzido. 


Indica o código de mensagens menos 1.. 
Inicialmente em 255. Se for alterada por 
uma listagem de programa Basic, quando 
este programa terminar, a máquina impri- 
me a mensagem de erro desejada. 


Esta variável contém um byte cujos valo- 
res contêm flags (indicadores) que contro- 
lam o sistema Basic. 


Flags associados à impressão na tela:e na 
impressora. 


Esta variável aponta para um elemento da 


“pilha da máquina. Quando ocorre um er- 


ro, é para este endereço que a execução 
salta depois de a pilha ser limpa por RST 
08 (instrução em código de máquina). Al- 
terando este elemento, é possível escrever 
novas rotinas de tratamento de erro. 


Esta variável aponta para o endereço de 
retorno da pilha da máquina, para o qual 
salta a execução após uma listagem auto- 
mática. 
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DSi Dom a mma meme a 
Nota Endereço Nome Conteúdo Nota Endereço Nome Conteúdo 
ni  23617/5C4] CURSOR Esta variável especifica o cursor em uso x2  23637/5C55 NEXEXC Indica o endereço da linha de programa 
(K,L,C,E ouG). Basic seguinte à que está sendo execu- 
tada. | 
2  23618/5€42 LNJMP Linha para onde deve saltar a execução i 
do programa. Usada nas instruções GOTO x2  23639/5C57 ENDDATA Aponta para o separador final do último 
- e GOSUB. elemento de uma listagem DATA. Se não 
existir DAT 
1 23620/5C44 | INSTRNR Número da declaração da linha para onde 80h a Fipe e Ed pa pesa 
deve saltar a execução. Alterando primei- ormações do canal. 
ro a variável LNJIMP e depois esta, for- x2  23641/5C59 INADD Endereço da instrução a ser digitada no 
ça-se um salto para uma determinada de- teclado. | 
claração da linha. 
2 23643/5C5B CURADD Endereço do cursor no interior da linha 
2  23621/5€45 EXCLINE Número da linha onde se encontra a ins- aliada 
trução em execução. 
Ê | x2 23645/5SC5D | CHNXADD Endereço do próximo caractere a ser in- 
l 23623/5€47 SUBLEXC Número da instrução em execução dentro terpretado. 
de uma linha. 
2 23647/5C5F SYCHADD Endereço do caractere que se encontra 
1 23624/5€48 BORCLR Esta variável contém os atributos da parte depois do sinal “2” 
inferior da tela. É uma experiência muito 
interessante alterar seu valor e imprimir x2  23649/5C61 WORK PT Endereço da área de trabalho temporário. 
mensagens com diversos valores. x2 23651/5C63 STKEND Endereço inferior da pilha de cálculo. 
2  23625/5049 CURLINE mo da linha onde se encontra O x2  23653/5C65 ADSPFREE Endereço do início da memória livre. 
ni  23655/5C67 BREGCAL Regist á edi 
x2  23627/5C4B VARADD Indica o endereço inicial da área de variá- ei o usado para fins diver- 
| veis Basic, quando da execução de um 
programa. n2  23656/5C68 MEMCADD Endereço usado para as seis memórias de 
| | cálculo 
n2 23629/5C4D — XVARADD | Endereço da variável em atribuição. Ra a ESPE Ao nas 
x2  23631/5C4F CHCADD Indica tabela de endereços usada por. 1 23658/5C6A SFLAG 2 Maias controlado jsdo dstenia 
PSTRM. | a 
x1  23659/5C6B SIZE Número de linhas (inclui 
x2  23633/5C51 IOADD Indica o endereço da tabela anterior (de DERto a nn ps em 
endereços de tratamentos de arquivos) de ser alterada fazendo o pro oa 
que está sendo usado pela rotina de tra- par toda a tela, mas dado: antes de 
tamerito. cada instrução que ocupe esta área (por 
dim , exemplo, INPUT), a variável deverá con- 
x2  23635/5C53 PROGBAS Indica o endereço de início da área de ter o valor original (2), ou seja, reabrir es- 


programas Basic. 


paço na parte inferior: 
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Nota Endereço Nome Conteúdo 
Nota Endereço Nome Conteúdo 
2 23660/5€6€ LIST NR Número da linha superior em listagem au- 
tomática. À 23681/5C81 Não usada pelo sistema. Alguns progra- 
mas em lin quina tê : 
2 23662/5C6É CONTIMP Número da linha para onde salta o co- trução RET (201) pe ad 
mando CONT Es (201) armazenada nesta po- 
sição, para evitar qu 
? que, ao se dar o coman- 
1 23664/5C70 CONTNR Número da instrução da linha destino do LOAD ““º CODE, se tenha acesso aos 
| após o comando CONT. seus códigos. .. 
2 23682/5C82 1 
nl  23665/5C71 SFLAG 3 Mais flags controladoras do sistema. ERREI Número de colunas (32) e linhas (24) do 
final da área de entrada. 
n2  23666/5C72 STRVLEN Comprimento da variável série em atribui- 2 23684/5C84 
ção. DEPSPRI Endereço da posição PRINT no arquivo 
de imagens. Pode ser dirigida para outra 
n2  23668/5C74 SYTADD Endereço do elemento seguinte na tabela. posição. 
de sintaxe da ROM. Esta tabela define o. 2 23686/5C86 o e 
local onde se encontra a rotina correspon-. / DESARI si É anterior, mas para a parte infe- 
dente a cada comando e o modo de obter x1 23688/5C88 o 
a informação necessária. ea Número de colunas para a posição PRINT. 
x1  23689/5C89 Número de linhas para a posição PRINT 
2 23670/5C76 INITRND O primeiro número para a instrução x2 23690/5C8A | am 
RND. Esta variável é inicializada por HVPOSL Idêntica à anterior, mas para a parte infe- 
RAND. | rior da tela. 
| 1 “é 
3 23672/5C78 TVCOUNT Contador de imagens de 3 bytes, incre- SoPRISCO DONO Contador de “scroll” da imagem: contém 
" mentado a cada ciclo de alimentação. uma a menos que o número de scrolls rea- 
é lizados antes de a imagem imprimin- 
2 23675/5C7B UDGRAPH Endereço do primeiro caractere gráfico do a mensagem Ea CR 
definido pelo usuário. RAMTOP não afe- um valor maior aqui E imagem E 
| ta esta área. ininterruptamente. , r ne 
1 23677/5C7D LSTPLOT Usada para armazenamento provisório da l 23693/5C8D ATCLRP Atributos permanentes definido d 
coordenada x quando são realizados cál- clarações INK, PAPER etc Eos 
culos para definição da posição de PLOT. ] 236 
na | 7 94/5C8E MASKCLRP Usado para atributos transparentes. Qual- 
1 23678/SCTEÊ COORDS Idêntica à anterior, mas para a coorde- quer bit igual a 1 indica que o Re E 
T- 
nada y. respondente não é retirado de ATCLRP, 
1º 23679/SC7F | POSIMPR Número da posição de impressão, em 32 mas do valor que já está na tela. 
| colunas. nl 23695/5C8F ATCLRT Atributos provisórios em uso, em instru- 
i 23680/5C80 PRTADD Byte menos significativo do endereço da — Sões tipo PLOT, DRAW etc. 
| posição que se segue para LPRINT (no nl 23696/5C90 —MASKCLRT Como MASKCLRP. mas provisóri 
buffer da impressora). | 23 | , P id 
697/5C91 SFLAG 4 Outras flags controladoras do sistema. 
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Ra Sd Sp netas SAD Tu CO a o o AD o a Ri 

Nota Endereço Nome Conteúdo 

n30 23698/5€92 MEMSPCAL É nesta área que a unidade de cálculo arit- 
mético pode guardar até seis números di- 
ferentes, em notação de ponto flutuante, 
com 5 bytes cada, utilizando memórias 
especiais. 

2  23728/5CB0 NMIVCT Ex-vetor de interrupção, não usado devi- 
do às características de programação da 
ROM. Pode ser usada sem restrições pelo 
usuário. 

2  23730/5CB2 RAMTOP Esta variável contém 'o endereço do últi- 
mo byte da área Basic. 

2  23732/5CB4  MEMAVLB Endereço do último byte físico da RAM. 


Alguns comentários sobre as variáveis de sistema: 


1 — KBDWORK 


Esta variável armazena: 
a- 255 se nenhuma tecla foi pressionada ou 
b- o código do maior caractere em branco, à esquerda, impresso em uma tecla. 


No último caso, o código pode ser considerado como sendo aquele caractere 
que INKEY $ produziria se CAPS LOCK (tecla 2) estivesse acionado. 


Esta propriedade pode ser usada com vantagens, quando se usa INKEY $ em 
um programa. Digite o programa a seguir € veja o efeito que CAPS SHIFT ou 
SYMBOL SHIFT produzem quando pressionados com outras teclas: 


10 PRINT AT 0,0; INKEY 8; “ "+ REM 4 espaços dentro das aspas 


20 GOTO 10 


Como se pode notar, o caractere produzido não depende apenas de qual tecla 
foi pressionada, mas também em que modo se encontrava o computador. Isto con- 
duz a linhas meio “complicadas” quando se usa INKEY$, por exemplo, ao final de 
um programa: o | 


9000 PRINT “Quer rodar outra vez? (s/n)”: PAUSE O: 
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IF INKEY $ = “s” OR INKEY $ = “S” OR INKEY$ = “NOT” THEN RUN 
9010 NEW 

Podemos utilizar também o byte do endereço 23552: 

10 PRINT AT 0,0; CHRS$ PEEK 23552; “ a 


> 


20 GOTO 10 


Você vai perceber que para qualquer tecla pressionada, o caractere produzido 
será aquele que aparece em branco no lado esquerdo da tecla que está sendo pressio- 
nada. A solução para o problema: 


9000 PRINT “Quer rodar outra vez? (s/n)”: PAUSE O: 

IF CHR$ PEEK 23552 = “S” THEN RUN 

9010 NEW 

Se pretende usar esta técnica em seus programas, proceda da seguinte maneira: 
10 LET kbd = 23552 

E mais adiante, 


«.. IF CHR$ PEEK kbd =... THEN... 


Agora experimente o programa abaixo, e saiba qual endereço desta variável 
utilizar em seus programas: 


10 FOR f= 23552 TO 23559 
20 PRINT INKEY $; “ ?. CHR$ PEEK f; 
30 GOTO 20 


Quando quiser mudar para o próximo endereço, ou o próximo f, basta digitar 
NEXT f. 


Notou que a penúltima tecla pressionada é impressa com a última, através de 
CHR$ PEEK f/ ? Retire este comando da linha 20 e preste atenção nas diferenças. 


2 — KEYPRS 


O conteúdo deste endereço vai produzir o código da última tecla pressionada, 
esteja ou não sendo pressionada outra. Como no caso. da variável anterior, se mais 
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de uma tecla é pressionada, então o código da primeira a fazer contato tem priori- 110 IF a$ = “s” THEN RUN 
dade sobre a outra. É importante notar que, embora CAPS SHIFT ou SYMBOL 120 STOP 


SHIFT sozinhas não alterem o conteúdo de KBDWORK, ou mesmo de INKEY$, 
juntas produzem o código 14, que normalmente é usado para representação de nú- 


meros em listagens Basic do TK 90X. PAIO | 
4 — MUDANDO MODOS DO CURSOR 


Existem outras quatro combinações de teclas que produzem valores para by- 


tes de 23560 e códigos de INKEY$, que não aparecem no manual do TK 90X. São A variável de sistema de endereço 23617 especifica o modo do cursor, e, atra- 
elas: vés dela, o programador pode forçar apenas o modo grático e o modo extendido, no 

Teclas normalmente usadas Valor do código | propio Comando NE 

para produzir: INKEY 3 Para modo gráfico: POKE 23617,2: INPUT a$: PRINT a$ 

GRÁFICOS (CAPS SHIFT & 9) 15 Para modo extendido: POKE 23617,1: INPUT a$:PRINT a$ 

TRUE VÍDEO (CAPS SHIFT & 3) 4 Experimente o programa, alternando esses dois POKES: 

VÍDEO INVERSO (CAPS SHIFT & 4) 5 10 FOR f= O TO 255 

CAPS LOCK (CAPS SHIFT & 2) 6 20 PRINT f; TAB 8; 


30 INPUT a$: PRINT a$:;: INPUT a$: PRINT a$ 


3 — RPTDLAY e RPTCCLE 40 NEXT f 


Experimente rodar o programa abaixo, que é auto-explicativo, e observe o 
que acontece com o dispositivo de repetição automática de teclado, e o tempo de 
leitura do teclado: 


Portanto, através de cursor, podemos apenas entrar em modo gráfico e modo 
extendido. 


Através de uma variável “misteriosa”, localizada no endereço 23658, po- 
demos também entrar em modo maiúsculo (CAPS LOCK). Digitando-se POKE 
23658,8, o endereço de SFLAG 2, automaticamente estamos com letras maiúsculas. 


10 PRINT “RPTDLAY - 23561 =”; PEEK 23561 * “RPTCCLE - 23562 =”; 
PEEK 23562 

20 LET a=PEEK 23561: LET b=PEEK 23562 ue 
Isso pode facilitar em certos programas que possuam uma linha do tipo 


cem: it d T 2, 
SOINCUT Dishe ndo perammudas io 100 INPUT “Quer rodar outra vez (s/n)”; s$: IF s8 = “S”? OR s$ = “s” 


40 INPUT “Digite valor para mudar RPTCCLE”;n THEN RUN 

50 POKE 23561, m: POKE 23562,n | Podemos passar esta linha para: 

60 INPUT “Experimentar digitar qualquer coisa”; cb 100 POKE 23658,8: INPUT “Quer rodar outra vez (s/n); s$: IF s$ = “S” 
THEN RUN: POKE 23658,0: REM Entra em modo maiúsculo e sai desse mo- 

70 PRINT c8 do através de POKE 23658,0 

80 POKE 23561, a: POKE 23562, b Pode-se, também, dependendo do tipo de programa, perguntar logo de início 


90 PRINT “Valor usado para RPTDLAY=”; m; “Valor usado para se deseja trabalhar somente em letras maiúsculas ou não. 


os Dr a pe ie | ; à 
RPTCCLE=":n Esta técnica é muito interessante quando existem nos programas diversos co- 


100 INPUT “Outra tentativa (s/n) 2”; a$ mandos tipo INPUT e INKEY 8. 


68 Basic Avançado para o TK 90X 





5 — CORES DA TELA 


BORCLR 


Embora o TK 90X proteja o usuário contra acidentes que fazem INK e PAPER 
em comandos INPUT serem da mesma cor, você, se quiser, pode alterar somente as 
duas linhas da parte inferior do vídeo, alterando os valores da variável de sistema 
BORCLR, de endereço 23624. Isto pode ser particularmente interessante, quando 
não se quer de modo algum que alguém veja a listagem de seu programa, e, desta 
forma, não é permitido imprimir qualquer coisa na parte inferior da tela. 


É interessante notar que, através do uso dessa variável, podemos também fa- 
zer FLASH e BRIGHT nas linhas de INPUT, adicionando: 


128 para FLASH 1 e 
64 para BRIGHT 1 


O novo valor de BORCLR permanece inalterado até ser executado um novo 
comando BORDER ou um NEW. 


Por exemplo, para produzir uma borda magenta com tinta amarela e papel 
magenta, nas linhas inferiores, com FLASH 1 e BRIGHT 1, digite: 


BORDER 3:POKE 23624, 128 +64+3 *8+6:CLS 


ATCLRP — MASKCLRP — ATCLRT — MASKCLRT 


Estas variáveis do sistema simplesmente armazenam os valores que estão sen- 
do usados para INK, PAPER, BRIGHT e FLASH. A diferença entre os nomes, ou 
seja, as letras P e T significam Permanente ou Temporário (estas, quando incluídas 
em algum comando de saída de dados). 


ATCLRP e ATCLRT são pouco utilizadas, mas para referência os valores a se- 
rem adicionados nelas, para tratamento de cores, são: 


ATCLR = 8 + (cor de PAPER) - + cor da INK +(128 para FLASH 1) + (64 pa- 
ra BRIGHT 1) 


MASKCLRP e MASKCLRT são mais úteis. s. Ocupam respectivamente os ende- 
reços 23694 e 23696. 


Qualquer bit de um byte de uma destas variáveis, que tiver o valor 1, mostra 
que o bit correspondente de atributos para impressão deve ser tomado da posição 
corrente de impressão da tela, como no caso de INK, PAPER, BRIGHT e FLASH 8. 
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O mais interessante destas variáveis é que nós podemos limitar seu efeito a 
apenas cores primárias (azul, vermelho e verde), de códigos do TK, respectivamente 
1,2 e 4. Os valores para POKE nas variáveis são: 


BIT EFEITO VALOR 
Ô azul INK 8 l 
l verm INK 8 2 
2 verde INK 8 4 
3 azul PAPER 8 8 
4 verm PAPER 8 16 
5 verde PAPER 8 32 
6 BRIGHT 8 — 64 
7 FLASH 8 128 
255 


6 — O RELÓGIO DO TK 90X 


Existe, no conjunto das variáveis do sistema do TK 90X, uma variável, que 
constantemente altera seus valores, como que contando “tempo”, chamada TV- 
COUNT, que possui seu valor inicial incrementado 60 vezes por segundo. Esta fre- 
quência é igual à freqilência ou ciclagem da área, e também o número de vezes por 
segundo que uma nova imagem é enviada à televisão para formar o que vemos. 


TVCOUNT é inicializada em zero, quando o computador é ligado, e incremen- 
tada a cada 20 milissegundos aproximadamente, a menos que um comando SOUND, 
uma operação com fita cassete ou um outro periférico estejam ligados ao TK 90X. 


Esta é a justificativa para o comando PAUSE n, que significa simplesmente 
“aguarde até que TVCOUNT seja incrementado de n”. 


TVCOUNT está armazenada em 3 bytes: 23672, 23673 e 23674. Cada byte 


tem 8 bits, e o valor máximo de TVCOUNT é 2 elevado a 24 menos 1, ou seja, 


16777215, o que corresponde a aproximadamente 3 dias, 21 horas e alguns minu- 
tos, a partir do momento em que o computador for ligado (se fizer esta experiên- 
cia, faça-a antes que acabe a garantia). Atingindo esse valor, TVCOUNT é zerada e 
inicia nova contagem. 


O valor de TVCOUNT pode ser encontrado através da linha: 
PRINT PEEK 23672 + 256 * PEEK 23673 + 65536 * PEEK 23674 


Experimente digitar o programa a seguir, que simula um relógio muito simples: 
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10 LET tvcount = 23672 
20 LET min = 0 
30 POKE tvcount, 0: POKE tvcount + 1,0: POKE tvcount + 2,0 


40 PRINT AT 1,7; “Segundos = ”; 


SO LET t= PEEK tvcount + 256 * PEEK (tvcount + 1) + 65536 * PEEK 
(tvcount + 2) 


60 LET seg =INT (t/50): REM desconte um tempo de processamento 
70 PRINT AT 1,1; seg 

80 LET min = INT (seg/60) 

90 PRINT AT 3,7; “Minutos =”; AT 3, 18; min 

100 GOTO 50 


O potencial desta variável é muito grande: serve de contador de tempo em diver- 
sos tipos de programas, até mesmo para aqueles que pretendem dar assessoria ao 
computador por hora! Serve de alarme, ou mesmo um sofisticado relógio, como se 
pode ver no capítulo VIII do livro. 


7 — ROLANDO A IMAGEM 


Um pequeno problema que surge para programadores em Basic de TK 90X é 
como não deixar o computador perguntar “Scroll?” a cada vez que a tela é preen- 
chida com dados. 


Existe uma variável de sistema, chamada SCRINC (de INCrementador de 
SCRoll), de endereço 23692, que possui o valor de 1 a menos que O número de li- 
nhas de tela que serão roladas para cima até a próxima pergunta “Scroll?” (normal- 
mente, esse valor é menor do que 23). Portanto, devemos colocar nessa variável um 
valor maior do que o número de linhas que rolam para cima na tela, ou seja, de ime- 
diato, 255, que é o valor máximo. | | 


Experimente: 

10 PRINT AT 21,31" 
20 PRINT PEEK 23692 
30GOTO 20 


Variáveis que controlam o sistema 71 
ai e O a o rnaet na DO ND PS qu 


Rode o programa e introduza a seguir a linha 


15 POKE 23692,255 e rode novamente. 


8 — VARIÁVEIS DE CONTROLE DE MEMÓRIA 


Existem algumas variáveis do sistema que servem apenas para o computador 
saber o estado em que se encontra a sua memória, como, por exemplo, saber onde 
começa o programa em Basic, onde estão as variáveis desse programa etc Muitas 
gi nais do sistema têm pouco interesse para o programador. Veremos algu- 
mas delas. | 


PROGBAS 


Os endereços 23635 e 23636 dizem ao computador ond 
o p nde começa o programa 


= PRINT PEEK 23635 + 256 * PEEK 23636 dá o valor de PROGBAS. ou seja 
o início da área de programas Basic. Some-se cinco a este valor e teremos E Endeio: 
ço do primeiro caractere após a declaração REM da primeira linha de um programa 
qualquer (sem microdrive ou interface), cheia de códigos esquisitos, que são, na ver- 
dade, uma rotina em código de máquina. | ' 


Se você pretende criar uma rotina em linguagem de máquina e armazená-la 
dessa forma, não esqueça de deixar após a declaração REM tantos espaços quantos 
forem os bytes da sua rotina. | 


| Para introduzir uma mensagem de autor de programa e deixá-la protegida na 
primeira linha, digite: | 


POKE (PROGBAS),0: POKE (PROGBAS + 1),0 


Se o número anterior da primeira linha do seu programa for menor do que 
256, então o primeiro dos dois comandos acima pode ser omitido. Este procedi- 
mento “renumera” a primeira linha do programa, atribuindo a ela o número O. tor- 
nando impossível uma simples edição dessa linha. 


VARADD 


Esta variável armazena o endereço das variáveis Basic, através da expressão: 


PRINT PEEK 23627 + 256 * PEEK 23628 
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E 
As variáveis Basic estão situadas imediatamente após o programa Basic na me- 

mória do TK 90X; portanto, nós podemos encontrar o comprimento de um progra- 

ma através da simples subtração de PROGBAS de VARADD: 


PRINT “O programa tem”; 256 * (PEEK 23628 - PEEK 23636) + (PEEK 
23627 - PEEK 23635); “bytes de comprimento” 


RAMTOP e ADSPFREE 


Estas duas variáveis podem ser utilizadas para medir a quantidade de memória 
disponível ao usuário. No mapeamento da memória do TK 90X, entre ADSPFREE 
e RAMTOP, existem apenas o espaço livre, a pilha da máquina e a pilha de GOSUB. 


RAMTOP é dada por: 

“PRINT PEEK 23730 + 256 * PEEK 23731 
E ADSPFREE por: 
PRINT PEEK 23653 + 256 * PEEK 23654 


Como alternativa da segunda expressão, existe na ROM do TK 90X uma roti- 
na que faz isso, e que começa no endereço 7962. Em vez de toda essa expressão po- 
de-se simplesmente digitar PRINT USR 7962, o que dá no mesmo. 


Para estimar a quantidade de memória disponível, subtraia ADSPFREE de 
RAMTOP. | 


Ainda sobre ADSPFREE, você provavelmente deve saber como parar aquele 
programa maravilhoso que quando carrega da fita, automaticamente já entra rodan- 
do. Sabe-se que ele foi gravado com SAVE. . . LINE. . . Para interromper esse pro- 
grama, deve-se usar MERGE “ ”, em vez de LOAD “*” q que cria um grande pro- 
blema para as software-houses. . . Pois bem, uma maneira de resolver esse problema 
é gravar o programa como sendo um bloco de bytes, através da inserção das seguin- 
tes linhas no final do programa: 


9997 LET adspfree = PEEK 23653 + 256 + PEEK 23654 
9998 SAVE “nome” CODE 23552, adspfree + 23500 
9999 RUN 


Desta forma, toda a memória é enviada pará a fita cassete, incluindo o progra- 
ma, as variáveis Basic, as variáveis do sistema, a pilha do calculador, como um bloco 
de códigos, de tal forma que, quando for carregado de volta ao computador, este vai 
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A e E e e AO e TA ça 


iniciar O seu processamento a partir da linha em que parou, ou seja, a partir da últi- 


ma linha do programa (não se esqueça de que É 
» para carregar 
“usar LOAD “ ” CODE). gar o programa, você deve 


9 — DIVERSAS VARIÁVEIS 


Para saber qual o número da próxima linha a ser interpretada, digite: 
PRINT PEEK 23662 + 256 * PEEK 23663 (será o comando TRACE?) 
E, para saber qual o número da próxima declaração, naquela linha, digite: 


PRINT PEEK 23664 


| Os endereços 23677 e 23678 armazenam respectivamente as coordenadas X e 
Y do último ponto plotado (variáveis de sistema LSTPLOT e COORDS). Você pode 


criar duas variáveis em Basic, usando linhas com PLOT ou DRAW: se começar o 
programa com 


LET xo = 23677: LE yo = 23678 


Toda vez que precisar saber qual foi o último p: 
ponto plotado, PEEK 
PEEK yo lhe darão as coordenadas desse ponto. ; o 


Para desenhar uma linha a partir do último ponto plotado 


DRAW (x - PEEK xo), (y - PEEK yo) 


Ou então, simplesmente, dar POKEs nessas variáveis, para alterar a posição do 


último ponto plotado, ou então para desenhar li 
É pontos e retas, sem ut E 
mandos PLOT e DRAW. RR 


HVPOS 


Armazena a posição corrente de impressão, mas não da maneira que você deve 
estar aguardando. Se lhe foi dado algum comando tipo PRINT AT I,c,então 

endereço 23688 armazena 33 - c 

endereço 23689 armazena 24 - 1 

Portanto, para encontrar a posição onte de impressão 


LET 1 = 24 - PEEK 23689 
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LET c = 33 - PEEK 23688 


Se você pretende usar essa técnica em seus programas, até mesmo em conjun- 
to com SCREENS, então proceda da seguinte forma: 


DEF FN y() = 24 - PEEK 23689 
DEF EN x() = 33 - PEEK 23688 


INITRND 


Esta é a variável utilizada para gerar o último número randômico (aleatório), e 
esté armazenada nos endereços 23670 e 23671. Experimente digitar: 


PRINT RND, (PEEK 23670 + 256 * PEEK 23671)/65536 


E serão impressos dois valores iguais. Cada vez que RND é usada, INITRND é 
alterada pelo computador da seguinte maneira: 


Novo INITRND =(75 (INITRND + 1)) mod. 65537 - 1 
O que corresponde em Basic a: 


LET INITRND = 75 + (INITRND + 1): LET INITRND = INITRND - 65537 
* INT (INITRND/65537) - 1 


O novo valor de INITRND é então armazenado e dividido por 65536, para 
produzir um valor para RND entre O e 1. 


DFPSPRT e DFPSPRTL 


Estas duas variáveis de sistema, armazenadas nas locações 23684 e 23686, ar- 
mazenam o endereço no arquivo de imagens das posições de impressão, tanto para a 
parte maior da tela quanto para a parte inferior. 


Normalmente não usamos PEEK e POKE no arquivo de imagens, pois temos 
três comandos que suprem qualquer necessidade, que são POINT (x,y), PRINT e 
SCREENS $ (x,y). | 


Para qualquer posição de impressão na tela, nas posições X e Y, temos que: 


DFPSPRT = 2048 * INT (Y/8+8) +(Y - 8 «INT(Y/8)) *32+X 


Não se esqueça de que cada caractere na tela é armazenado em 8 bytes na me- 


mória (um para cada linha de caractere). Os endereços desse grupo de 8 bytes de ca- 
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da caractere da tela são separados-de outro na mesma posição, em outra parte do 
arquivo de imagem, por 256. Portanto, se DFPSPRT é a primeira linha, na segunda 
é DFPSPRT + 256, na terceira é DFPSPRT + 512, e assim por diante. 


"Experimente digitar o programa a seguir, que ilustra bem essas experiências: 
10 BORDER O: PAPER O: INK 6:CLS 
20 PRINT AT INT (RND «+ 22), INT (RND «+ 32); 
30 LET DF =PEEK 23684 + 256 * PEEK 23685 
40 FOR c=0TO1 
50 FOR a = DF TO DF +7 « 256 STEP 256 


60 READ b: POKE a, b: NEXT a 

70 NEXT c 

80 RESTORE: GOTO 40 

90 DATA 24, 60, 126, 25,31, 254, 60, 24, 248, 60, 23, 15, 15, 23, 60, 248 


Se você realmente quiser proteger seus programas contra aqueles “piratas pro- 
fissionais”, dê um POKE na variável de sistema P ERR, de endereço 23613, com 
valor 0. 


POKE 23613,0 


E coloque esse comando como sendo o primeiro da primeira linha do progra- 
ma, para então experimentar dar um BREAK no programa e ver o que acontece... 
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ALGO SOBRE OS COMANDOS IN E OUT 


Uma falha gritante do manual do TK 90X! 


Estes dois comandos são importantíssimos, tanto a nível de Basic quanto a ní- 
vel de linguagem de máquina. 


Os microcomputadores, ou melhor, qualquer computador, devem poder co- 
municar-se com o exterior. Este mundo exterior inclui normalmente o leitor, a sua 
televisão, o seu gravador, uma impressora, microdrives, enfim, tudo que possa 
ser conectado à CPU do micro. 


Dividimos os modos de comunicação de um computador em duas categorias 
principais: as entradas e as saídas. As entradas são as informações recebidas pelo 
computador, através de qualquer periférico de entrada. As saídas, ao contrário, são 
as informações enviadas pelo computador para um periférico de saída. Para poder 
comunicar-se com o exterior, o computador, qualquer que seja ele, utiliza o que 
chamamos de portas (ports, em inglês). O nome em si tem lógica. 


O microprocessador pode ler e escrever dados na memória através das instru- 
ções PEEK e POKE. Mas, para ele, não interessa se está lendo ou escrevendo na 


ROM ou na RAM; ele sabe somente que existem no máximo 65536 endereços dis- 


poníveis de uma vez, para sua pesquisa. 


Numa total analogia, podemos dizer que existem 65536 portas de entrada ou 
saída (em inglês, I/O ports — de Input é Output). Estas, como vimos, são usadas pe- 
lo sistema para comunicação com o meio exterior, e podem ser controladas pela 
linguagem Basic, através das instruções IN e OUT. 


A instrução IN é similar a PEEK. 


% 
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IN endereço 


Possui um argumento, o endereço da porta, e seu resultado é o byte lido 
daquela porta. 


OUT é uma instrução similar a POKE. 


OUT endereço, valor 


Escreve naquela porta especificada o valor determinado. 


A maneira como esse endereço é interpretado depende muito do estado do 
computador, ou seja, se existe um periférico conectado a ele. No TK 90X, é prefe- 
rível imaginarmos esses endereços escritos na sua forma binária, porque cada bit do 
endereço trabalha de maneira independente, ou seja, depende do estado da máqui- 
na, ou da finalidade do processo. 


São no total 16 bits, assim denominados: 
A15, Al4,.... AlO,..... A2, Al, AO. 


Onde AO é o primeiro bit, Al é o segundo, e assim por diante, até A1S, que é 
o último. Normalmente esses bits têm o valor 1, mas se um deles tem valor zero, sig- 
nifica que o computador deve realizar uma tarefa específica. Os bits AO, Al, A2, 
A3 e A4 são os mais importantes. O computador não pode fazer mais que uma tare- 
fa por vez, portanto apenas um destes cinco bits deve ser 0, de cada vez, Os bits A6 
e A7 são ignorados. Os melhores endereços para serem utilizados são aqueles múlti- 
plos de 32 menos 1. 


Os bits de A8 em diante, algumas vezes, transmitem alguma informação extra 
ao computador. 


O byte lido ou escrito tem 8 bits, que são chamados de DO a D7. 


Existe um grupo de endereços de entrada, que tanto lêem o teclado como o 
soquete EAR do micro. 


O teclado é dividido em oito meias linhas de cinco teclas cada: 
— IN 65278 le de CAPS SHIFT até V 
IN 65022 le de AatéG 


| 


IN 64510 le de Q até T 
IN 63486 le de 1 até 5 
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IN 61438 le de O até 6 


IN 57342 le de Paté Y 


| 


IN 49150 le de ENTER até H 
— IN 32766 le de SPACE até B 
(Estes endereços são 254 + 256 * (255 - 21), com n variando de O a 7). 


No byte lido, os bits DO a D4 se associam às cinco teclas daquela meia linha — 
sendo DO associado à tecla mais externa e D4 associado à tecla mais próxima ao 
meio do teclado. O bit será O se a tecla foi pressionada, e 1 em caso contrário. D6 é 
o valor no soquete EAR traseiro. 


A porta de endereço 254, com relação a saídas, dirige o som de saída pela te- 
vê (D4), e o soquete MIC traseiro (D3), e também muda as cores da borda da tela 
(D2, DI, DO). | 


A porta de endereço 251 dirige a impressora conectada no slot traseiro, tanto 
em leitura quanto em escrita, ou seja, sabendo se a impressora terminou ou não a 


mensagem enviada. 


As portas de endereço 254, 247 e 239 são usadas para periféricos, como mi- 
crodrives, interfaces seriais etc. 


A porta de endereço 63 é usada para sintetizadores de voz (nem todos — são 
características de cada um). 


Experimente o programa: 

10 FORx=OTO 7 

20 LET m = 254 + 256 *(255 - 2%) 
30 PRINT AT 0,0; IN m: GOTO 30 


E vá pressionando as teclas para saber os valores respectivos de cada uma. Não 
é preciso anotar, porém confira com o quadro a seguir os valores correspondentés a 
cada uma delas, e se houver diferença (é normal), anote-a. Quando completar a digi- 
tação de cada meia linha, pressione BREAK e dê, em modo direto, NEXT x, para 
passar para outra meia linha. | 


O programa a seguir, de desenho livre, onde se “pega a caneta” do computa- 
dor, é um grande exemplo do emprego do comando IN, permitindo que você pres- 
sione mais de uma tecla ao mesmo tempo. Experimente e divirta-se. (Repare na ve- 
locidade.) | | 


Algo sobre os comandos in e out 79 





TABELA DE ENDEREÇAMENTO DO TECLADO 


IN 63496 IN 61438 


so ss te o Te, 
IN 64510 Pena 
U Í O 


ol w EI RI T 
e2 let |59 |55 |47 




















IN 65022 


55 61 
= s| D| Fl Gl H| 31] K[ J2L| ENTER 
62 |61 |59 |55 |47 |47 |55 |59 |61 | 62 


IN 65278 
e SHIT SPACE 

Da - 
Suponha que você tenha uma linha de programa com a seguinte configuração: 


Esta tabela funciona da seguinte maneira: 
IF a$ = “s” THEN... 






ou então 

PAUSE O: IF INKEY $ = “s” THEN... 
Substituindo por endereçamento de teclado: 
IF IN 65022 = 61 THEN. . 


O que agiliza o seu programa, torna a resposta mais rápida que os comandos 
anteriores, e permite que dois ou mais comandos sejam acionados ao mesmo tempo. 


O programa seguinte exemplifica muito bem isso. 


| Mas, devido às pequenas diferenças existentes entre o ZX Spectrum da Sin- 
claire o TK 90X, o programa tanto serve para um quanto para outro. 


E, nas listagens dos programas seguintes, se por acaso encontrar um comando 
BEEP, substitua-o pelo comando SOUND, ambos são idênticos. O problema é que 
este TK 90X não aceitou a impressora ALPHACOM 32 conettada junto com a In- 
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Descrição do programa: 


Na linha 1, a RAMTOP foi puxada para 63999, liberando a área posterior pa- 
ra entrada e armazenamento de códigos. 


Na linha 30 é pilotado um ponto, na posição 128,87. 


Nas linhas 40 e 50 são as condicionantes que incrementam ou decrementam 
as coordenadas do ponto, e na linha 60 esses valores são ajustados em função dos li- 
mites da resolução gráfica do micro. 


Na linha 70 são impressos, na parte inferior do vídeo, os valores correntes de 
XeyY. 


Da linha 80 até a 310 são as teclas condicionantes da posição do ponto plo- 
tado. ' 


As teclas que movem o ponto são as que se situam ao redor da tecla F, da se- 
guinte maneira: 


E R T (movimento em diagonal ascendente à direita) 
o wty 
D— F—+— G (movimento à direita) 
AP Va | 
C V B 
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Os outros comandos do programa são: 

Linha 80 — tecla N — aciona modo OVER 1, para apagar ponto; 
Linha 90 — tecla X — roda o programa outra vez — apaga tudo; 
Linha 100 — tecla M — aciona modo INVERSE 1; 

Linha 110 — tecla 1 — aciona modo OVER 0 e INVERSE 0; 

Linha 120 — tecla P — muda cor do papel; 

Linha 130 — tecla H — pergunta raio de círculo e traça-o; 

Linha 140 — tecla K — apaga círculo desenhado (só se houver); 
Linha 150 — tecla O — entra em modo OVER 0 e INVERSE O; 
Linha 160 até 240 — muda cores de tintas e aciona BRIGHT 1; 
Linha 260 — tecla F — traça segmentos radiais de reta; 

pinta 270 — tecla S — grava desenho — modifique-o para fita cassete; 
Linha 280 — tecla J — carrega desenho — Modiigics para fita cassete; 


Linha 290 — tecla L — chama sub-rotina de piscar ponto (sem desenhar), a 
partir da linha 500; . 


Linha 300 — tecla CAPS SHIFT — chama sub-rotina em linguagem de máqui- 


na, armazenada a partir do endereço 64000 e move toda a tela para a esquer- 
da (é o chamado scroll lateral); 


Linha 310 — tecla SPACE — faz o scroll lateral para a direita, a partir da roti- 
na em linguagem de máquina que começa no endereço 65000; e 


Linha 320 — Retorna para plotar o ponto na nova posição. 


Na sub-rotina da linha 500 até 590, mova o ponto, sem desenhar, e, através da 
tecla A, trace um arco de circunferência, da tecla W, trace um retângulo entre a po- 
sição anterior e a nova; da tecla Q, una os dois pontos, com um segmento de reta; e 
da tecla Y, retorne da sub-rotina sem fazer nada. 


Da linha 9000 até a linha 9080 estão os códigos em valores decimais que signi- 
ficam, para o micro, as duas rotinas.de scroll lateral, tanto para a direita quanto pa- 


ra a esquerda. Você pode perfeitamente introduzir estas rotinas em seu próprios 
programas. 
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DIFERENÇAS ENTRE O TK 85 E O TK 90X 


Houve uma evolução muito grande entre o TK 83 e 0 TK 85, principalmente 
em relação à aparência, já que surgiu um teclado, e o gabinete mudou de aparência. 


Quanto ao hardware, a ROM do TK 85 recebeu 2K adicionais armazenando as 
rotinas referentes ao armazenamento rápido em fita e a RAM também cresceu, e 
muito, | 


No TK 90X, as alterações foram muitas e boas, a começar pelo teclado, aspec- 
to de maior crítica, do ZX Spectrum, dada a sua lentidão, na digitação de textos, e 
não na programação (eu particularmente não acho — me acostumei com ele). 


Sem considerar as rotinas de armazenamento rápido em fita cassete, residen- 
tes nos 2K adicionais da ROM original do TK 85, as duas versões de Basic oferecidas 
por essas duas máquinas são muito semelhantes. E, dependendo do caso, alguns pro- 
gramas de um podem servir para o outro (mas não ser carregado diretamente). O TK 
"85 possui apenas dois comandos que o TK 90X não tem, que são SCROLL e 
UNPLOT, mas existe uma série de comandos e funções do TK 90X que não são en- 
contrados no TK 85. Essa listagem está na tabela 4, a seguir. Os asteriscos nessa ta- 


bela indicam quais comandos e funções não são facilmente traduzidos para a lingua- 


gem Basic do TK 85, Os comandos de cor e som podem ser omitidos, mas com rela- 
ção à alta resolução e comandos de entrada e saída de arquivos existem opções. 


O comando PLOT aparece em ambos os micros, mas seu efeito é um pouco 


diferente, portanto cuidado! Outra diferença fundamental é com relação a PEEK e 


POKE, pois os endereçamentos são completamente diferentes. 


O comando USR “A” do TK 90X não tem similar no TK 85; ele deve ser omi- 
tido dos programas a serem convertidos. | 
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| TABELA 1 — Conversão do TK 85 para o TK 90X 


SCROLL RAND USR 3582 ou No TK 90X, este coman- 
LET r = USR 3582 do faz o SCROLL de 

| uma linha de cada vez. 
PLOTX,Y PRINT AT 21-X/2, Y/2; 




























Imprime o caractere grá- 
fico padrão do TK 90X 
(teclas 1 a 8), 
















Sobrepõe um caractere 
gráfico padrão, apagando 
o anterior. 


PRINT OVER 1;AT 
21-X/2,y/2 










| “TABELA 2 — Conversão do TK 90X para o TK 85 | 


LET x = valor decimal 






BIN permite a represen- 
tação binária de um nú- 
mero, em caracteres grá- 
| ficos definidos pelo usuá- 
rio. 



















READ/DATA/RESTORE | LET 
LET x= 11 
LET y = 22 





DATA 11,22 












DEF FN e FN LET a$ = “SQR x” O equivalente a EN ne- 
DEF FN a(x) = SQR x LET x=p cessita de pelo menos 
LET y = FN'a(z) [ LET y = VAL a$ duas linhas de programa. 


PLOT Não tem equivalente A resolução gráfica do 
| TK 85 é baixa 


SCREEN$ 
LET m= SCREEN$ x,y | LET m= PEEK (PEEK 
16396 + 256 * PEEK 
| 16397 +1+Y +33 *X) 
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TABELA 5 — Conversões de variáveis de sistema 


| TK 90X | 


NOME | ENDEREÇO NOME ENDEREÇO | 


CALREG | 16414 BREGCAL 23655 
BANCO 16443 Ea A Sem equivalente 


TABELA 3 — Conversões generalizadas 


pune] 
AN 
qo 
Un 


|- QUAD 
POKE 16436,255 POKE 23672,0: POKE 23673, 


POKE 16437,255 O: POKE 23674,0 . 


LET t= (65535 - PEEK [LET t=(PEEK 23672 + 256 | ENCAR | 16406 | CHNXADD | 23645 00 

16436 - 256 * PEEK * PEEK 23673 + 65536 * CORDX | 16438 "| ISTPLOT | 23670 

16437)/60 PEEK 23674)/60 

E DEST | 16402 | XVARADD | 3629 

2- Número da primeira 

“linha = zero | DEILE | 16396 | TT Semequivaleme | 

POKE 16510,0 POKE 23756,0 (sem alteração DES [ló [SME 69 

| da RAM original, isto é, sem | ELINE | 16404 |  INADD | 236410 7] 

| CODR | 16384 | ERRCD | 23600 007 

16394 | CURLINE | 236950 

RAMO | ENSP | 16386 | PERR | 2363 000 — 
POKE 16388, X-256 23611 

* INT (X/256) 

POKE 16389, INT (4/256) | QUAD | 16436 | TVCOUNT | 23672 

| ULTK | 16421 |  KEYPRS | 235600007 

HARG | 16424 | TT | Semequivalente || 

| MEM | 16415 | | MEMCADD | 23656. 

| VCPB | 16427 | CONTIMP | 23662) 0 

| CPB | 16391 |  EXCLINE | 2362100 

|  PRBUFF | 16444 "| | 2296 0 7 

| 

| RTP | 16388 |  RAMTOP | 237300 

|FRORDER Res o [SEM | 16484 | INITRND O | 2360 TT 

Pr o a EN 

CIRCLE MERGE IN | LINPR | 16442 | CT 23689 00] 

| CLOSE MOVE “OVER — PILFUN | 16410 | STKCEND | 2365100 

DATA OPEN POINT | PILFIM | 16412 |  ADSPFREE | 23653 0 

oereN | our SCREENS 

gos PAPER SOUND | 

RACE READ | VALS SXEN | 16432 |  SYTADD | 23668 0 

FLASH - RESTORE | TRACE VARS nigãoo | VARADD | 23627 TT — 

| VERIFY + | VERSN | 16398 | |  Semequivalente | 





Capítulo VI 





AS CORES PELO TECLADO 


Apesar de tudo o que já foi dito tanto no manual quanto neste livro sobre 
como se obter cores para INK e PAPER, ou como entrar em modo FLASH ou 
BRIGHT, existe outra maneira de se colorir mensagens, gráficos criados pelo usuá- 
rio, ou texto; através de códigos que são obtidos pressionando-se diretamente certas 
teclas. | 


Por exemplo, para se digitar uma linha de programa, que seja com INK 1 e 
PAPER 1, deve-se fazer o seguinte: 


1- Digite o número da linha; 


2- Entre em modo extended (cursor E), pressionando CAPS SHIFT junto - 


com SYMBOL SHIFT; 
3- Pressione a tecla 1 — pronto! Você já obteve papel azul; 


4- Pressione novamente CAPS SHIFT (ainda em modo extended) e outra vez 


a tecla 1 — e você passará a escrever com tinta azul, ou seja, com a tinta da mesma 


cor que o papel, para que, por exemplo, nenhum pirata tenha acesso ao seu copy- 
right da primeira linha do programa. | 


Essa sequência de comandos vale para qualquer tecla de 1 a 7, referentes às 
cores. Ê 


A tecla 8 pode tanto desligar o FLASH quanto o BRIGHT, dependendo de 
qual tecla você pressionar antes dela. | 


A tecla 9, ao contrário da 8, pode tanto ligar o FLASH quanto o BRIGHT. 
88 = | 


As cores pelo teclado 


QUADRO — RESUMO DAS FUNÇÕES DAS TECLAS 1 ATÉ Q 


INK | 

| BLACK | 
PAPER | 
BLACK 


DELETE 
DELETE 
E 


HT 


i 





"- MODO 
GRAPHICS 





| SAI DE 
Es 


o/s|m 
ape 
sro 


PAPER [BRIGHT | BRIG 
LLOW | WHITE 0 


INK 
YELLOW | WHITE 





MOVE | ERASE rom CAT | FORMAT! 
FLASH 0 | FLASH 1 | 


PAPER | PAPER 
CYAN | YELU 


INK 
MAGENTA 
| PAPER 
MAGENTA 


TECLAS 
mo LINE | OPENK | CLOSER 
—NK INK 

RED | CYAN 
PAPER PAPER 
7 RED GREEN 





SYMBOL) DEF EN 
INK 
BLUE 
|] PAPER 
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meme 


E, para a tecla O, valem as observações sobre as teclas de cores. 
Portanto, nessa primeira fileira de teclas, de 1 a O, cada uma delas pode ter até 


oito funções (não há teclado mais inteligente do que este), dependendo somente do 
modo em que se encontra o computador naquele momento, e, principalmente, da 


sua prática com o teclado. 


Veja na página anterior um quadro ilustrativo dos diversos modos de se utili- 
zar essas teclas, que por omissão, creio eu, não foi publicado no mariual do TK 90X. 


Capítulo VII 





O MODO GRÁFICO DO TK 90X 


Você já deve ter notado que este micro não possui página gráfica de alta reso- 
lução. 


Ótimo. Porque essa página gráfica de alta resolução é apenas uma área da me- 
mória RAM reservada estritamente para desenhos e ela não se mistura com textos. 


No TK 90X, em Basic mesmo, pode-se misturar texto e desenhos, como qui 
ser. Não há necessidade de dar nenhuma instrução especial, para entrar e sair de 
qualquer modo gráfico, É uma grande vantagem desta máquina. 


Mas, a operação de desenhar um ponto na tela apresenta algumas diferenças 
do modo de impressão de textos. 


Um comando PRINT AT 0,0 imprime uma mensagem, ou um caractere na 
primeira linha do vídeo, ou seja a linha de topo (a primeira superior). Você sabe que 
existem 22 linhas disponíveis para texto, começando em zero e terminando em 21. 
Mas, se quiser mais duas linhas, lembre-se das variáveis de sistema, Basta dar POKE 
23659,0 que você some com a parte inferior da tela — tome cuidado, pois estas li- 
nhas da parte inferior obrigatoriamente devem existir antes de um comando INPUT, 
por exemplo, ou antes de ser impressa uma mensagem lá (até mesmo SCROLL?) 


Já com o comando PLOT, ou outro comando de desenho, ocorre O inverso, 


Um comando PLOT 0,0 desenha um ponto no canto inferior esquerdo do ví- 
deo. Um PLOT 255,0 desenha um ponto no canto inferior direito, enquanto PLOT 
175,0 desenha um ponto no canto superior esquerdo da tela e PLOT 255,175 dese- 
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PIXEL. 191,159 
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da a Poe ado San O A a O a A e aces caga ni = ar 
nha um ponto no canto superior direito da tela. Lembre-se de que a capacidade grá- 
fica do TK 90X é de 256 pontos na horizontal (eixo X), e 175 pontos na vertical 
(eixo Y). Portanto, em computação gráfica neste micro, o eixo Y tem sentido inver- 
so à maneira de formatar comandos de saída de textos. 


Observe, pela tabela da página anterior, a orientação das posições gráficas para 
desenho na tela, bem como das posições de impressão de textos, que o ajudará na 
hora de converter gráficos em textos (coordenadas), e vice-versa. 


Por exemplo, você desenha, através de PLOT e DRAW um retângulo na tela, e 
quer escrever alguma palavra bem no centro desse retângulo. Se os lados desse retân- 
gulo forem X e Y, teremos: 


PRINT ATX/8, (175 W/8..... 


Note a inversão do sentido do eixo Y. 


Capítulo VIII 





PROGRAMAS 


Neste capítulo, você encontrará diversos programas, tanto aplicativos ou utili- 
tários quanto jogos de lazer, que visam demonstrar todo o pontencial do TK 90X. 


Todas as técnicas de digitação possíveis no TK 90X foram utilizadas, inclusive 
as citadas no capítulo VI. 


Você vai notar, através dos jogos aqui listados, a grande diferença entre este 
micro, e o seu irmão mais velho, o TK 85. Naquele, não é possível elaborar-se um 
“arcade game” em Basic, dada a sua lentidão. Neste é perfeitamente possível, visto 
que a sua velocidade de processamento, mesmo em Basic, é muito superior. 


A utilização de um microcomputador como este não tem limite. Digite os 
programas a seguir, procure entendê-los, passo a passo, modifique-os, “personali- 
ze-os”, mas não pare aqui. Estes programas são alguns poucos exemplos da capaci- 
dade da máquina, principalmente em função das necessidades de quem o utiliza. 


Vá em frente! Comece a elaborar seus próprios programas, sem medo algum 


de errar, pois isso é a coisa mais normal no mundo dos programadores. 


Existem diversos métodos de programação, como o diagrama de fluxos, mas o 
melhor deles, na minha opinião, é aquele em que nós pensamos como o micro, ou 
seja, escrevemos o programa, não ainda em Basic, mas a sua sequência, a resolução 
do seu algoritmo, sempre objetivando aquele resultado planejado, para depois sim 
ser traduzido para a linguagem de computador. 
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E e Sigo ia ia aa OS 


Boa diversão! 


NOTA: Todos os programas que requeiram algum movimento utilizam somente as 
teclas chamadas de “cursoras”, que são: 


“S” — movimenta para a esquerda 
“8” — movimenta para a direita 
“6” — movimenta para baixo 

“7º — movimenta para cima 


“O” — atirar. 


1) DEMONSTRATIVOS 


Programa “Demonstração de Bola” 
PB Dm 
Este programa é um demonstrativo da capacidade da linguagem Basic do TK 
90X. Através das rotinas a partir da linha 9000, ele faz tanto SCROLL, à esquerda, 
quanto SCROLL, à direita, rotinas que se pode empregar em qualquer programa 
Basic. | | 


A título de curiosidade, compare estes códigos, em m linguagem de máquina, 
com os códigos do programa “DESENHANDO”, e veja as diferenças. 


A seguir, duas telas do programa rodando, mostrando o movimento da bola. 
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São três pequenos programas, que traçam gráficos e desenhos em cores alea- 
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Este é o conhecido jogo de cartas “21”, onde você deve totalizar, com as car- 
lt tas que tem na mão, 21 pontos. Se por acaso conseguir esse total com apenas duas 
Le mErho A E . a 

cartas, então você fez um “Blackjack”, e ganha em dobro o que apostou. 
car de h O TK 90X é muito bom, e de início, deu-lhe um crédito de Cr$ 100. 
DA Ou í A sub-rotina da linha 8000 define os quatro naipes do baralho. 
ú Cada carta é desenhada através da sub-rotina que começa na linha 8500. 


E Existem 13 cartas disponíveis, mas a solução empregada neste programa foi à 
de pegar na ROM a estrutura-padrão de cada caractere a ser impresso no vídeo, € 


O O aim — O 


RErRDRaRO então ampliá-lo duas vezes, tanto na largura quanto na altura, para ser armazenado 


no grupo de caracteres gráficos A BC D. Como não existe um caractere-padrão pará 
o número 10, o caractere gráfico E foi reservado para esse propósito. | 


Como nós já vimos no início deste livro, para ser impresso, cada caractere 

: consome 8 bytes, e a definição standard para este grupo de bytes está armazenada 

na ROM, começando no endereço 15360. Portanto, o endereço de início de cada 
nl caractere na ROM pode ser determinado pela fórmula: 


15360 + 8 * código do caractere (linha 9020) 


Na linha 270, você deverá notar uma notação estranha: 
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MD ET Ra sSio PRINT BT B.B:“PLacar “js 

E qu NV RR BEER .BaG,-D: NEXT p 

a s550 CLS 

E. 3580 FEM & Bi HF 

TLEB PRINT OT Ena; 

T1ãQ NEKT po o CCT Programa “Defesa aérea” 

EO DOIMT OT 1 Bo Ta == cr Aqui, você é um exímio piloto de um caça, que deve impedir, de todas as ma- 
FE EF EF EF“ E o neiras possíveis, que exterminadores alienígenas eneguemia à Terra, destruindo tudo 

cido PRLNI Bi LGã INE Li0loiu que estiver na superfície. 

SGA DÉTUEM Além de tomar cuidado com as bombas que são lançadas contra seu avião, vo- 

S200 BORDER &. INK 7. PRPER BE cê não deve encostá-lo nem no limite superior da tela nem na superfície terrestre, 

nO pois aos poucos você acaba com ele dessa maneira. 

ERREI a a a, COR oq RR q Através das teclas cursoras de movimento para cima e para baixo (6 - 7), au- 

5050 LET h=1B: LET v=i5 mente ou diminua a altitude de seu avião, e, com à tecla O, dispare raios mortais 

Sedd LET sis. RANDOMIZE contra os exterminadores, destruindo-os. 

DúDE LD: ml=ifes+ã.o LET pE=S23+d 

Sd Repare na rotina, escrita em linguagem de máquina, que faz o SCROLL late- 

S68BO [ET vidas as ral da imagem, com 36 bytes de comprimento, na declaração DATA da linha 3000. 

B187 FETURN O que esta rotina faz é mudar de posição lateralmente cada linha da tela, em 

mato ED z=iimm = Ti: Ee ai PR UA 8 ca 

Do De PR o O a alta resolução, isto é, o caractere que estava na posição 0,1, passará pará a posição 

OD NEXT 3. pérubn o (TS 0,0, daí para 0, 31 e assim nor diante. 

Sbáw DATA 125, 152,284 224,248,24 A rotina executa o mesmo procedimento com os atributos dá tela. 

0506 LATA Si.51,31,31,15.15,7,5 Observe nas linhas 140 e 150 os comandos POKE desta rotina. Se quiser utili. 

E AO io a a sá zá-la em outro programa, com outros endereços, basta alterar os dados destas linhas, 

aB7a DATA 152,192,182,1572,155D., 25 e não é necessário que você entenda de linguagem de máquina. Se tiver curiosidade, 

dIBERICOO amo anote os bytes da linha DATA, e, através do Apêndice D, do manual dá máquina, 

mom Dota sé Ga Fá Asi isSa sm veja o significado das instruções em linguagem de máquina. É muito mais complica- 

Emo À | una do, mas também muito mais fascinante! 

Si20 DATE 128,102,248,255,285,24 E | | | | 

Mr domos dedo A listagem possui algumas linhas escritas com cores diretamente do teclado. 

Sily LATA ZDo, L26,88,65,825,2á , 24 ão elas: | 

.E& à dr São elas: 

SE00 LET acoscrias 5120 PRINT OVER 1; AT bx, by; “esp GRA JT”; AT nx, by; “EXT SHI 2 esp 


120 
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5270 IF ax = sx AND ay >sy + 4 AND ay < 30 THEN FORk=1 TO Il: 
SOUND .1,5: PRINT OVER 1; AT ax,ay - 1; “esp GRA DGRA E”: NEXT k: 
LET ax = INT (15 * RND): LET ay = 29: PRINT AT ax, ay - 1; “EXT SHI 4 
esp GRAD GRA E” EXT SHIO: LET sc = sc + 100 


5280 IF bx = sx AND by >sy + 4 AND by < 30 THEN FOR k = 1 TOS: 
SOUND .1, 10: PRINT OVER 1; AT bx, by; “EXT SHI 2 esp GRA J”: NEXT 
k: LET bx = 1 + INT (RND + 14): LET by = 30: PRINT AT bx, by; “EXT 
SHI 2 esp GRA J” EXT SHI O: LET sc = sc + 20 


5350 PRINT OVER 1; AT ax, ay; “esp GRA D GRA E”; AT nx, ny; “EXT 


SHI 4 esp GRA D GRA E” EXT SHIO 
1000 IF ABS (bx-ax) <= 1 AND ABS (by-ay) <= 1 THEN FORk= | TO 


11: SOUD ..1, 5: PRINT OVER 1; AT ax, ay; “esp GRA D GRA E”: NEXTk: 


LET ax = INT (15 * RND): LET ay = 29: PRINT AT ax, ay; “EXT SHI 4 
GRA D GRA E” EXT SHIO 


7020 PRINT OVER 1; AT ax, ay; “esp GRA DGRA E”; ATax-l, ay; “EXT 
SHI4 esp GRA D GRA E” EXT SEL 0 


7070 PRINT OVER 1; AT sx, sy-1; “esp GRA FGRA G GRAHGRA P";AT 
sx, sy; “EXT SHI 6 esp GRA F GRA G GRAF H GRA RA |” EXT XTSHIO 0 


7145 LET ay = ay + 1: PRINT OVER 1; AT ax, ay-1; “esp GRA D GRA E”; 
AT ax, ay; “EXT SHI 4 esp GRA D GRA E” EXT SHI O 


7300 PRINT OVER 1; AT'sx, sy-1; “esp GRA FGRA G GRAH GRA [;AT 
sx, sy; “EXT SHI 6 esp GRA F GRA G GRA É H GRA RAT” EXT XTSHIO 0 


8560 PRINT OVER 1; AT sx, sy-1; “esp EXT SHI 6 GRA F GRA G GRA H 
GRA [” EXT SHIO: SOUND k/50, 12 2+k: NEXT k 


8710 PRINT OVER 1; AT sx, sy-1; “esp EXT SHI 6 GRA F GRA G GRA H 
GRA 1” EXT SHI O: SOUND .1,15-2 +k: NEXTk | | 


A legenda utilizada significa: 


esp — pular um espaço — existem outras linhas na listagem do programa onde . 


também se deve pular um espaço; 
GRA - utilizar modo gráfico (cursor em G) 
EXT -- utilizar modo extended (cursor em E) 


SHI — pressionar a tecla CAPS SHIFT 
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G186 PRINT RiiAt did. Ciessibrhe Programa “Monstros Voadores” 

Ge ME es RR RE Pee e 

Do uimsigio mirim a 

90800 FOR a=lSf Cao TO USER “qU+? Neste jogo, você é o único defensor da estação espacial. Eis que, de repente, 
Eee JE E Ran OA EA surgem sobre você alguns monstros voadores, tentando acertá-lo com bombas de 
2020 DATA GOB. BB. ,A.S poder mortífero. Você também deve atirar seu raio laser mortal, para se defender. 
2840 DOTE 8,0,60,0,81,113,297 Não é tarefa difícil. 

assa DATA a,2s,la,22,27, 152,13, 

Sê o decada o e o lendo Este é mais um magnífico jogo em linguagem Basic, demonstrando a incrível 
MR ua SR ARE CNO a SS SS RS capacidade deste micro. 

Suvo DATA 5,16,13,38,38,8,5,8 2 

SAsBG DOTE S,16,B,j44á 157, i178,155 Atenção para a digitação das seguintes linhas: 

3290 DATA 221,2003,533,1,164,2dz.i 180 FOR i= USR “GRA A” TO USR “GRA A” + 167 

EE £ ig , 

aee DU dmtaceco Citi, O: o 290 PRINT “esp EXT SHI 2 GRA CGRA D esp esp” 

dLily LHIH Sds, lsto, RR SERENO O O pa 

Si2A DOTA 132,152,35,572,15,55,8 i 

a 330 PRINT “EXT SHI 4 GRA À EXT SHI2 GRA E GRA F EXT SHI4 GRA 
3130 DATA 1.26,25,12.15,8,8.8 B esp” 

Sidig DATA l2ã,l5ã,105,8,2,5.5,%8 

2150 DATA LlS.A, IS dás, lit LOC. Cá 510 PRINT AT v, g; “esp EXT SHI 2 GRA QGRA RGRAS esp”; AT y, x; 
SEG DETA BO.1,1,1,104 ,B46,28,28 “esp esp espesp; AT y +lx; “esp esp esp esp” 

TT CIA pe, TITO Ts E, = Ta cê E o - = a a - E o a 

par RR Eri TS aba Em taeé do sds 4 US s SS à te 3 Ré “e 

D18a DATA J2S 128 L12& 125 , 12& Sá 540 PRINT AT YR, ; “EST SHI O GRA G EXT SHI l GRA C GRA D EXT 

OD Sd Da pao de O aa SHI O GRA H”; ATy + Lx: ; “GRA [EXT SHI 1 GRA E GRA F EXT SHI O 

a198 DATA 28,25,24, 25, 2Z4,28, 23.0 GRA J” 

E E Fi Pim 

S2De DATA COPE the uau Manquit NA E ” 

m La! “eirarao o” enragsno t Prince 570 ..... + ATi-l,x-1; GRA TGRAU E 

5210-REM  simidtai O É gad tod, 660 PRINT AT v.g; “esp EXT SHI 2 GRA Q GRA RGRA S esp”; AT y,x: 


“esp esp esp esp”; AT y + lx; “esp esp esp esp” 
de 690 PRINT AT y,x; “EXT SHI 0 GRA K EXT SHI 1 GRA C GRA D EXT 


Ps SHI O GRA L”; AT y - 1x; “GRAM EXT SHI i GRA E GRA F EXTSHIO 
ar GRAN” 


720... ATi+1l,x+1;“GRA TGRAU”:.. 


Rei i | 
A a 1010 PRINT AT y-1,x; “esp esp esp esp”; AT y x; “EXT SHI 2 GRA O EXT 
ALE . > SHI 6 GRA € GRA D EXT SHI 2 GRÁ P EXT SHI 0º; A? ATy + y+ Lx: “e: 'esp EXI EXT 
das RR SHI 6 GRA E GRA F EXT SHLO esp” 
ES. 3 1300 PRINT AT v,g + 1; “GRA Q GRA R GRA S”; OVER 1;ATv,x+1; 


po T GRAU”. FORi=1 - 1 TO 11: SOUND .1 «À, -10:PRINT OVER, AT 
v, &; “esp GRA GRAQGRARGRAS”: SOUND 02,4: NEXT i 





+ 
* 
DM ur A O O A a O 5 dd A O mede o cotonete 00 an 
*, 
fo 


e a 1420 PRINT AT v, g + 1; “EXT SHI 2 GRA Q GRA R GRA S”; OVER 1;AT 
ER E y + 1, x, “EXT SHI O GRA G EXT SHI 1 GRA C GRA D EXT SHI 0 GRA 
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SOUND .02, 4: 








Basic Avançado para o TK 90X 


SOUND .1,10 


GRA 8” 


ATy+2,x 
— SHI — apertar também CAPS SHIFT 


Os símbolos acima querem d 
— esp — pular um espaço 


— EXT 
— GRA 
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Programas 141 


Programa SANUIDE ai Ds A io ss E sa 
Este programa permite que você jogue xadrez com o computador. Tome cui- 
dado, porque ele é um grande jogador, mas terrivelmente lento. 


Os caracteres gráficos são muito bonitos, e, como alternativa, você pode aite- 
rar O programa, no sentido de que duas pessoas joguem xadrez. A escolha é sua, 


Este programa é um exemplo excelente do que é possível fazer com o TK 
90X, já que xadrez é considerado um jogo muito difícil para computadores, dada 
sua lógica. Ainda mais considerando-se a linguagem Basic, e suas limitações perante 
a linguagem de máquina (velocidade de processamento principalmente). 


Uma única nota: seja honesto em suas jogadas, porque o programa não verifi- 
ca se a sua jogada é ou não permitida. Arme-se de uma boa dose de paciência, e en- 
frente a “fera” 


Os caracteres gráficos: 
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Você pode armazenar essas matrizes, através de SAVE “nome” DATA x$(), 


vantagem que nem todo Basic possui. 
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Se você esqueceu o telefone e o endereço de um amigo, basta digitar no micro 
o nome dessa pessoa, que ele lhe mostrará todos os dados armazenados sobre aquela 


pessoa. 
Experimente criar uma rotina, para classificar em ordem, por exemplo, alfabé- 


tica, os nomes das pessoas (você não vai digitar necessariamente em ordem alfabéti- 


ca), fazendo-o comparar os itens, dois a dois, em ordem crescente e decrescente, e 


substituindo a ordem quando for necessário. 
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Programa “ Análise de Vendas” 


Este programa utiliza o histórico de vendas de uma empresa por um determi- 


nado número de anos, para mostrar as flutuações ocorridas, bem como as tendên- 


cias detectadas no período. 


Os resultados deste programa podem ser muito úteis para qualquer empresa 
de vendas cujas atividades sejam afetadas por períodos anuais (as chamadas estações 


do ano e do programa). 


As informações necessárias para que o programa rode são os valores das ven- 
das por estação anual, de cada ano do período determinado pelo usuário (o progra- 
ma aceita um período máximo de 18 anos). 


Após a entrada das informações, o programa calculará a proporção de cada es- 
tação, pela divisão das vendas atuais pela média obtida entre as estações de todos os 


anos medidos. 


O programa também traça um gráfico contínuo das vendas anuais da empresa, 
permitindo uma imediata visualização das informações sobre as vendas naquele pe- 
ríodo. 


A listagem: 
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Assim que se roda o programa, aparece na tela um menu de opções. 
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Assim que você preencher essa página, ela então deve ser copiada em alguma 


daquelas páginas dimensionadas anteriormente, através da opção 3. Estas páginas 
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Com a opção 7, pode-se utilizar qualquer símbolo do teclado, como por exem- 
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Tecla 1 — EDIT — abre um espaço à direita do cursor, no texto 
Tecla O —- DELETE — remove espaços do texto, ou apaga palavras 


Tecla 3 - TRUE VIDEO — move o texto uma li 
Tecla 4 — INVERSE VIDEO 
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Programa “Relógio do TK 90X” 


larme. 


ea 


4 


Este programa simula um relógio, muito bem ajustado, que possui at 
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180 Basic Avançado para o TK 90X 


E a A e e tee a 


Programa “ Renumerador de Linhas” 


Este é outro programa utilitário, que simula o comando de Basic Applesoft, 
AUTO, numerando automaticamente as linhas do programa, a partir do número 10. 


Mas, atenção: ele não numera de forma automática os comandos GOTO e 


GOSUB, mas mostra na tela as linhas que contenham estes comandos, para facilitar 
a alteração numérica posterior manual. | 
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Programa “Scroll Lento” 


ams! 
pres 
i 
1 


am 
a 
q: 
“ b 
tal 35 
ai 


feet 
p= 
sd 
Wo cerol ces 


rr 
ve 
nem e.» 
os Et 
eu en%p 


1 .. 


qua 
a 


Er PEÇO Et =| TE 


NTEs 


a LU 
Pat 


de Mt pa 
fo 


“E 


PE Ao 
Ha + 


Ma TZ 


Eta que mm o 4» 
, 


EM 


E 


rampa: 


" 
“ 


nueega 
O 


é 
rieaer 

e tim 
* | 


dj Ju fu fem) t 
= 
CO 


É 
eds fa 


o 


ED Pd 
E ias 


qem 


Fi 
E 


nro 


mod FRA 


ey 


— nã. 

dm . 

“ ai 
a ota 
que O q 


E 
Ed 


Eai o 
É E LADAça 
co um (sum, pum, 
a L t E& . 
as É EA que 
ue o a 
dem, fem à 
ai E À 
. 3 pq * 
é fas é ê 
4 $ 
za É a 
CT e qm que eme 
« & 5,8 fuma Sor 
nar mo pre z 
- 5 te Eme 


= Der 
Ta 7 leo Em 
SS q a 

7 "ils 

“om i Po E 


i EE a O am 
2 - og 
E ME os ss 
am o É 


jr in 


EM 


mm cam mst a 


la 
aupa! 


e TH 
fe 


jo 
numa 
+. 


mu 
be [ei 


pop 
RT 


ever deqas 
Ah, 
as” o 
Fri 


mt 


E À 


ma) 


O eae atraem 


Esta pequena rotina de códigos de máquinas tem um efeito muito interessan- 
te, similar a apresentação de filmes que utilizam letreiros de apresentação da ficha 


técnica e que fazem aquelas letras subirem a tela, como SCROLL, só 


mente. 


que mais lenta- 


Digite esta rotina, de um endereço inicial, por exemplo, 65000, se o seu micro 


tiver 48K RAM. 


Em seguida, faça um pequeno programa, como por exemplo: 


10 PRINT AT 21, 10: “O nome” 
20 PAUSE 0: IF INKEY$ = “P” THEN RAND USR 65000 


É veja que efeito maravilhoso obterá, após digitar a linha 30 GOTO 20 
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Não se esqueça de conferir atentamente os códigos do programa, pois apenas 


um errado põe tido a perder. 
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